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PREFACE 


The  study  reported  herein  was  performed  during  the  period 
October  1978  to  May  1982  under  Department  of  the  Army  Project  No. 
4A161102AT22,  "Research  in  Soil  and  Rock  Mechanics,"  Task  AO,  Work  Unit 
002,  "Analytical  and  Data  Processing  Techniques  for  Interpretation  of 
Geophysical  Properties." 

The  work  was  performed  by  Messrs.  Dwain  K.  Butler,  Ronald  E. 

Wahl,  and  Donald  E.  Yule,  Earthquake  Engineering  and  Geophysics  Division 
(EE&GD),  Geotechnical  Laboratory  (GL) ,  U.  S.  Army  Engineer  Waterways 
Experiment  Station  (WES),  Vicksburg,  Miss.;  Mr.  Donald  E.  Barnes,  Geo¬ 
mechanics  Division,  Structures  Laboratory,  WES;  and  Dr.  Anthony  F. 

Gangi,  Department  of  Geophysics,  Texas  A&M  University,  College  Station, 
Tex.,  under  the  direct  supervision  of  Dr.  Arley  G.  Franklin,  Chief, 

EE&GD,  and  the  general  supervision  of  Dr.  William  F.  Marcuson  III,  Chief, 
GL.  The  work  by  Dr.  Gangi  was  performed  under  Contract  No.  DACA3 -M- 
0074  and  involved  preparing  and  documenting  the  computer  programs 
REFRDIR  and  REFRINV.  Mr.  Wahl  developed  the  computer  programs  SEISDIG, 
SEISPLOT ,  and  REFINT.  The  computer  program  DOMER  was  written  by 
Mr.  Yule.  Mr.  Barnes  developed  the  computer  programs  PLOT 2  and  PLOTLL 
and  provided  assistance  in  the  use  of  these  programs.  This  report  was 
prepared  by  Mr.  Butler. 

The  study  was  closely  coordinated  with  work  planned  by 
Mr.  Joseph  R.  Curro,  Jr.,  Chief,  Field  Investigations  Group,  EE&GD,  GL, 
under  CWIS  Work  Unit  31150,  "Remote  Delineation  of  Cavities  and  Discon¬ 
tinuities  in  Rock,"  and  by  Mr.  Butler  under  DA  Project  No.  4A161101A91D, 
"Assessment  of  Microgravimetry  for  Geotechnical  Applications." 

COL  Tilford  C.  Creel,  CE,  was  Commander  and  Director  of  WES 
during  the  conduct  of  this  study.  Mr.  Fred  R.  Brown  was  Technical 
Director. 
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CONVERSION  FACTORS,  U.  S.  CUSTOMARY  TO  METRIC  (SI) 
UNITS  OF  MEASUREMENT 


U.  S.  customary  units  of  measurement  used  in  this  report  can  be  converted 
to  metric  (SI)  units  as  follows: 


Multiply 

By 

To  Obtain 

feet 

0.3048 

metres 

• 

inches 

2.54 

centimetres 

miles  (U.  S.  statute) 

1.609347 

kilometres 
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ANALYTICAL  AND  DATA  PROCESSING  TECHNIQUES  FOR  INTERPRETATION  OF 
GEOPHYSICAL  SURVEY  DATA  WITH  SPECIAL  APPLICATION  TO 
CAVITY  DETECTION 


PART  I :  INTRODUCTION 


Background 

1.  In  foundation  investigations  for  permanent  military  facilities 

ranging  from  the  common  post  facilities  such  as  hospitals,  barracks, 

3 

etc.,  to  underground  command,  control,  and  communication  (C  )  facilities, 
there  is  a  need  for  accurate  information  on  subsurface  stratigraphy, 
structure,  and  physical  properties.  Presently,  this  information  is 
obtained  through  a  combination  of  drilling,  laboratory  testing,  and  geo¬ 
physical  testing.  Emphasis  in  the  field  investigation  is  on  drilling 
and  logging  of  borings  which  is  a  relatively  expensive  procedure.  Often 
as  much  as  five  percent  of  the  construction  cost  is  expended  in  geotech¬ 
nical  investigations  for  military  facilities  and  over  half  of  this  is 
spent  in  the  field.  Geophysical  methods  have  the  potential  for  reducing 
these  costs;  however,  the  full  potential  of  geophysical  methods  to 
reduce  the  number  of  borings  required  is  not  presently  being  utilized 
partly  because  processing  and  interpretation  of  geophysical  data  in  the 
U.  S.  Army  Corps  of  Engineers  usually  is  done  manually.  This  has  evolved 
primarily  because  judgment  is  required  in  the  data  reduction  and  inter¬ 
pretation  process.  The  manual  methods  are  very  labor-intensive,  and 
frequently  there  are  considerable  delays  in  reporting  survey  results 
due  to  processing  "backlogs."  Also,  since  hand  methods  are  being  used, 
recent  developments  in  wave  propagation  and  potential  field  theory, 
which  involve  large  amounts  of  computation  and  could  assist  in  the  inter¬ 
pretation  of  data,  are  not  being  utilized. 

Applications  of  Geophysical  Methodology 


2.  The  various  types  of  surface  and  subsurface  geophysical 
methods  are  reviewed  in  Engineer  Manual  1110-1-1802  (Department  of  the 


Army,  1979).  This  report  will  concentrate  on  three  of  the  surface  geo¬ 
physical  methods  and  one  cross-borehole  method: 
a.  Electrical  resistivity. 
t>.  Microgravimetry, 
c^.  Seismic  refraction, 
cl.  Crosshole  seismic  method. 

3.  In  addition  to  foundation  investigations  to  aid  in  facility 
design  and  construction,  geophysical  methods  are  applicable  to  post¬ 
construction  facility  development  functions,  such  as  groundwater  explor¬ 
ation,  and  monitoring  functions,  such  as  groundwater  contamination 
detection  and  subsurface  intrusion  prevention  and  detection.  Table  1 
summarizes  the  applicability  of  the  above  four  geophysical  methods  to 
various  military  facility  design,  construction,  development,  and  moni¬ 
toring  functions. 


Geophysical  Data  Sources 

4.  As  described  in  the  Preface,  the  work  described  here  was 
closely  coordinated  with  two  other  research  efforts.  In  this  way, 
efforts  under  the  three  projects  were  complementary,  and  relevant  field 
data  were  available  for  processing  and  interpretation  using  techniques 
developed  during  the  present  work.  Specifically,  the  field  efforts 
involved  the  evaluation  of  some  28  geophysical  techniques  for  cavity 
detection  and  delineation  at  two  natural  cavity  test  sites  in  Florida, 
and  many  of  the  examples  used  in  this  report  are  drawn  from  the  data 
from  these  sites.  Figure  1  is  a  location  map  showing  the  two  sites. 

The  Medford  Cave  site  has  a  relatively  shallow  (<10  m)  air-filled 
cavity  system;  Figure  2  shows  a  plan  view  of  the  known  cave  system  and 
the  geophysical  survey  area  at  the  site.  The  Manatee  Springs  site  has  a 
deeper  (%30  m)  water-filled  cavity  system;  Figure  3  is  a  plan  map  of  the 
known  cavity  system  and  the  area  used  for  the  geophysical  surveys. 

Cavity  detection  and  delineation  is  considered  a  particularly  appropriate 
application  since  the  presence  of  cavities,  either  natural  (e.g.,  solu¬ 
tion  cavities  in  carbonates)  or  man-made  (abondoned  mine  workings  or 


Table  1 

Applicability  of  Geophysical  Methods 


Geophysical  Method 

Use  of  Method 

Seismic 

Refraction 

Seismic 

Crosshole 

Electrical 

Resistivity 

Microgravity 

Site  selection 

1 

4 

1 

1 

Stratigraphy  and 
lithology  defini¬ 
tion 

1 

1 

1 

3 

Depth  to  top  of 
rock 

1 

4,5 

1,2 

1,2 

Geologic  struc¬ 
ture  determina¬ 
tion 

1,2 

2,3 

1,2 

1 

Groundwater 
exploration  and 
assessment 

1 

4,5 

1 

1,2 

Groundwater 

contamination 

detection 

5 

5 

1 

5 

Construction 
materials 
exploration 
(sand  and 
gravel) 

2  • 

4,5 

1 

2 

Facility  monitor¬ 
ing/perimeter 
integrity 

3,4 

4 

1 

1 

NOTE: 


1  -  Primary  usefulness 

2  -  Secondary  usefulness 

3  -  Has  indirect  or  limited  usefulness 

4  -  Could  be  used  but  not  best  or  practical  approach 

5  -  Not  applicable 

2,3  -  Indicates  a  range  of  2  to  3,  or  that  applicability  may  vary 
depending  on  circumstances 


Figure  1.  Map  showing  locations  of  Medford  Cave  and 
Manatee  Springs  test  sites 


i 


Figure  2.  Plan  map  of  the  Medford  Cave  site 
Marion  County,  Fla. 


-  8*1. 


Figure  3.  Plan  map  of  the  Manatee  Springs  site. 
Levy  County,  Fla. 


clandestine  tunnels)  presents  problems  for  facility  foundations  as  well 
as  for  base  perimeter  security. 


Purpose 


5.  The  purpose  of  this  report  is  to  document  new  and/or  improved 
analytical  and  data  processing  techniques  for  interpretation  of  the 
results  of  geophysical  surveys.  The  work  has  involved  (a)  acquiring, 
improving,  and  modifying  existing  computer  codes;  (b)  writing  new  comput¬ 
er  codes  in-house;  and  (c)  producing  new  computer  codes  by  contract 
sources.  All  of  the  work  is  designed  to  improve  and  speed  up  data 
acquisition  and  processing  and  to  improve  and  extend  capabilities  for 
interpreting  engineering  properties  from  geophysical  surveys. 

Scope 


6.  Part  II  of  this  report  covers  the  resistivity  methods. 

Part  III  covers  the  microgravimetric  techniques,  and  Part  IV  covers  the 
seismic  methods.  A  summary  and  recommendations  for  future  work  are  pre¬ 
sented  in  Part  V.  The  coverage  of  the  geophysical  techniques  is  limited 
to  a  brief  review  of  the  concepts  and  field  procedures  of  the  techniques 
listed  in  paragraph  2,  followed  by  computer  program  documentation  and 
examples  of  the  use  of  the  computer  programs.  Table  2  is  a  summary  list 
of  all  the  computer  programs  documented  in  this  report  and  gives  perti¬ 
nent  features  of  each  as  well  as  where  the  documentations  and  program 
listings  can  be  found. 
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tt  On-line  mini/micro  computer  facility 

1  Easily  adapted  to  other  mini/micro  computer  systems 

2  Only  selected  options  have  been  reformatted  for  output  on  T/S  Terminal 

3  Uses  standard  Cal /Comp  instruction  conmands 


PART  II:  SURFACE  ELECTRICAL  RESISTIVITY  METHODS 


Background 

7-  All  surface  electrical  resistivity  methods  considered  in  this 
section  involve  linear  four-electrode  geometries  (arrays) .  The  four 
most  common  electrode  arrays  are  illustrated  in  Figure  4.  In  each  of 
the  four  arrays,  an  electrical  current  I  is  input  to  the  ground  at 
electrodes  C^  and  C^  .  Electrodes  P  and  ?2  are  used  to  measure 
a  potential  difference  AV  .  The  following  equation  can  be  used  to 
calculate  an  apparent  resistivity  pA 

PA  =  Kq  ~y  (1) 

where  K  is  a  geometric  factor  which  depends  on  the  array  type  and 

electrode  spacings  within  the  array.  For  the  Wenner  array  (Figure  4a), 

Kg  =  2ira  ;  and  for  the  Schlumberger  array  KG  =  its  £(L/s)^  I/4J  , 

where  s  =  P^P ^  and  L  *  (generally  L  _>  5s)  .  In  the  pole- 

dipole  array,  electrode  C ^  is  placed  at  effective  infinity  (generally 

C2P2  >  5  to  10  times  the  maximum  value  reached  by  during  a  survey 

is  sufficient);  and  KG  =  2hR^R2/ (R2~r^)  *  w^ere  R^  =  CiPi  an<*  R2  = 

C,P„  (R„  -  R.  *  P..P0)  •  Finally,  for  the  dipole-dipole  array,  K„  = 

1  Z  ry  Z  1  1  Z  O 

7rrn(n  -  1)  ,  where  r  *  *  ^iP2  an<*  ^1^1  =  ^2P2  nr' 

8.  The  resistivity  given  by  Equation  1  is  called  an  apparent 

resistivity  since  it  may  not  actually  be  the  true  resistivity  of  any  of 

the  subsurface  materials.  This  fact  can  be  illustrated  by  a  conceptual 

example:  consider  a  layer  of  soil  over  a  bedrock  which  is  very  thick. 

If,  say,  a  Schlumberger  or  Wenner  electrode  array  is  used  to  study  the 

example  just  presented,  the  following  facts  can  be  stated:  (a)  for 

electrode  spacings  a  or  L  much  smaller  than  the  soil  layer  thickness, 

the  measured  apparent  resistivity  (p^)  approaches  the  true  resistivity 

of  the  soil  (p^)  ;  (b)  for  electrode  spacings  a  or  L  much  greater 
than  the  soil  layer  thickness,  the  apparent  resistivity  approaches  the 
true  resistivity  of  the  bedrock  (p_)  ;  and  (c)  for  a  or  L  values 
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Figure  4.  Four  commonly  used  resistivity  electrode  arrays 


between  these  two  extremes,  the  apparent  resistivity  will  be  interme¬ 
diate  in  value  (i.e.,  the  measured  apparent  resistivity  will  be  a  volume 
average  of  and  P2  >  with  the  volume  included  in  the  measurements 

increasing  with  a  and  L  ) . 

9.  Two  types  of  surface  resistivity  surveys  can  be  conducted, 
and  these  surveys  will  be  termed  horizontal  profiling  and  vertical 
soundings.  In  horizontal  profiling  surveys,  electrode  spacings  are 
selected  and  the  entire  array  is  moved  along  the  surface  keeping  the 
spacings  constant.  If  a  set  of  parallel  profile  lines  is  surveyed  in 
this  manner,  the  result  will  be  a  grid  of  apparent  resistivity  values 
over  an  area  for  a  constant  electrode  geometry;  this  grid  of  data  can 
then  be  contoured  to  produce  a  resistivity  map.  Horizontal  resistivity 
profiling  is  designed  to  investigate  lateral  geologic  variations  above 


an  essentially  constant  depth  of  investigation.  Frequently  the  elec¬ 
trode  spacings  for  horizontal  profiling  are  selected  on  the  basis  of 
the  results  of  a  vertical  resistivity  sounding  (described  below) . 

10.  In  vertical  sounding,  the  electrode  array  is  expanded  sym¬ 
metrically  about  a  center  point  and  it  is  assumed  that  variations  in 
apparent  resistivity  as  the  electrode  spacing  increases  reflect  changes 
in  true  resistivity  as  a  function  of  depth  beneath  the  surface  point  of 
symmetry  of  the  array.  The  objective  in  vertical  sounding  interpreta¬ 
tion  is  to  determine  the  true  resistivity  versus  depth  variation  from 
the  apparent  resistivity  versus  electrode  spacing  data.  The  result  will 
generally  be  a  layered  model  consisting  of  layer  thickness  and  associated 
true  resistivities.  Interpretation  is  usually  accomplished  by  curve 
matching  (i.e.,  matching  field  data  curves  with  standard  curves)  or  by 
the  use  of  a  resistivity  inversion  computer  program.  Useful  discussions 
of  resistivity  theory,  field  methods,  interpretation  procedures,  and 
case  histories  can  be  found  in  Telford  et  al.  (1976),  Department  of  the 
Army  (1979),  Keller  and  Frischknecht  (1966),  Zohdy  et  al.  (1974),  and 
Butler  and  Murphy  (1980) . 

11.  In  this  section,  three  computer  programs  will  be  described 
which  assist  in  the  processing  and  interpretation  of  resistivity  field 
data.  The  first  two  programs,  RESDIR  and  RESINV,  are  used  for  interpret¬ 
ing  vertical  resistivity  sounding  surveys.  The  third  program,  RESDAT, 

is  a  general  purpose  resistivity  processing  program.  Also,  examples  of 
the  use  of  the  processed  and  interpreted  resistivity  results  will  be 
presented  as  illustrations  and  as  suggestions  for  future  work.  All  of 
the  programs  are  written  in  FORTRAN  IV  for  use  on  the  U.  S.  Army  Engineer 
Waterways  Experiment  Station  (WES)  Time-Sharing  system;  use  of  the  plot¬ 
ting  options  requires  a  Tektronix  Digital  Plotter  on-line  at  the  terminal. 

RESDIR:  A  Computer  Program  for  Solution  of  the 
Direct  Problem  in  Resistivity  Sounding 

12.  The  direct  or  forward  problem  in  electrical  resistivity 
sounding  consists  of  specifying  a  resistivity  model  and  then  calculating 
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the  apparent  resistivities  which  would  be  observed  by  a  given  electrode 
array  on  the  surface  of  the  model.  For  present  purposes,  the  class  of 
models  consisting  of  horizontal  layers  with  resistivities  and 

thicknesses  is  considered,  where  i  specifies  the  iC^  layer;  this 

class  of  models  is  illustrated  in  Figure  5.  Unlike  the  inverse  problem 


pn  (ha If -space) 

Figure  5.  Resistivity  model, 
n-layers  with  horizontal  inter¬ 
faces 

of  deducting  a  possible  model  directly  from  field  resistivity  sounding 
data,  the  direct  resistivity  sounding  problem  is  unique;  i.e.,  for  a 
given  electrode  geometry  and  resistivity  model,  there  is  only  one  pos- 
ible  sounding  curve. 

13.  RESDIR  is  a  FORTRAN  computer  program  which  solves  the  direct 
problem  in  resistivity  sounding  using  linear  filter  theory  (Ghosh,  1971a, 
b).  The  filters  were  derived  by  Davis  (1979a)  and  the  program  described 
in  Davis  (1979a,  b)  and  Mooney  (1979).  The  program  was  adopted  for  use 
on  the  WES  computer  time-sharing  system  and  an  output  plotting  option  was 
added.  For  a  given  electrode  array,  Wenner,  Schlumberger ,  or  axial 
dipole-dipole,  the  program  computes  and  plots  the  apparent  resistivity 
sounding  curve.  Beginning  with  a  user-specified  initial  electrode 


spacing,  the  apparent  resistivity  values  are  computed  at  six  points  per 
decade  of  electrode  spacing.  A  listing  of  RESDXR  is  presented  in 
Appendix  A. 

Input  data 

14.  All  data  are  input  in  a  free-field  format  with  prompting 
messages;  i.e.,  the  specified  parameters  are  input  consecutively, 
separated  by  commas.  Individual  input  lines  and  parameters  are 
described  below  and  also  in  comment  statements  in  the  program  listing 
(Appendix  A).  The  units  must  be  consistent,  e.g.,  if  resistivities  in 
ohm-m,  then  layer  thicknesses  and  electrode  spacings  must  lie  in  m  . 

Input  No.  1:  INDEX 

Index — specifies  array  type;  enter  _!  for  Schlumberger 
array,  2^  for  Wenner  array,  or  _3  for  dipole- 
dipole  array. 

Input  No.  2:  SPAC,  E,  M 

SPAC — smallest  a-spacing  (for  Wenner  array),  or  smallest 
L-spacing  (for  Schlumberger  array). 

E — specifies  number  of  layers  in  the  chosen  model. 

M — specifies  total  number  of  apparent  resistivity 
values  to  be  calculated  (at  rate  of  six  per  decade 
beginning  with  SPAC) 

Input  No.  2A:  IX 

Input  only  for  dipole-dipole  array  (INDEX  =  3) . 

IX — enter  0  if  r  is  varied  (n  constant)  or  enter  1  if 
n  is  varied  (r  constant). 

Input  No.  2B:  N-values 

If  IX  *  0,  enter  only  one  N-value 
If  IX  =  1,  enter  M  N-values. 

Input  No.  3:  Model  Parameters  (P(I),  1=1,  2E  -  1) 

Enter  E-l  layer  thicknesses,  immediately  followed  by 
E  layer  resistivities. 

The  above  input  sequence  is  repeated  for  additional  models;  normal  pro¬ 
gram  selection  is  terminated  by  inputting  0  (zero)  for  INDEX. 

Program  input 

15.  Printed  output  from  the  program  consists  of  a  listing  of  the 
input  model  and  then  a  listing  of  the  computed  apparent  resistivities  and 
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corresponding  electrode  spacings.  Optional  plots  of  apparent  resis¬ 
tivity  versus  electrode  spacing  for  Wenner  or  Schlumberger  arrays  can 
be  generated;  either  arithmetic  or  logarithmic  plots  can  be  selected. 

The  plots  are  generated  by  a  CALL  PL0T2  (X,  Yn,  N)  or  CALL  PLOTLL  (X, 

Y,  N)  command,  where  X  and  Y  are  the  parameters  to  be  plotted  and 
N  is  the  number  of  values.  PL0T2  and/or  PLOTLL  are  used  in  nearly  all 
the  programs  in  this  report  and  are  documented  in  Appendix  B;  the  plot 
specification  input  sequence  is  the  same  for  all  programs  in  this 
report. 

Examples 

16.  RESDXR  can  be  used  to  generate  sounding  curves  for  hypothet¬ 
ical  field  situations  and  as  an  aid  in  interpreting  field  sounding  data. 

17.  Example  1.  Consider  the  hypothetical  two-layer  case  shown 


using  a  Wenner  array  for  two  cases,  where  =  1/3P2  and  where  p^  = 

3p2  ;  the  layer  thickness  Is  the  same  for  both  cases.  The  Input  data 
and  program  output  are  shown  in  Figure  7  for  the  case  where  p^  =  . 

18.  Example  2.  As  an  example  of  the  use  of  RESDIR  for  generation 
of  sounding  curves  for  hypothetical  field  situations,  consider  the 
three-layer  model  in  Figure  8.  The  objective  of  this  model  is  to  simu¬ 
late  the  case  of  an  alluvial  aquifer  above  a  resistant  basement;  i.e., 
layer  1  represents  an  unsaturated  sandy  soil,  layer  2  represents  the 
alluvial  aquifer  (saturated  sandy  soil),  and  layer  3  represents  the 
resistive  basement  rock.  The  aquifer  thickness  is  constant  at  10  m,  and 
three  different  depths  to  the  top  of  the  aquifer  are  considered.  Sound¬ 
ing  curves  for  the  three  cases  using  a  Schlumberger  array  are  also  shown 
in  Figure  8.  Results  such  as  shown  in  Figure  8  could  be  used  for  asses¬ 
sing  the  feasibility  and  limitations  of  resistivity  sounding  for  detect¬ 
ing  the  presence  of  an  aquifer. 

RESINV;  A  Computer  Program  for  Solution  of  the 
Inverse  Problem  in  Resistivity  Sounding 

19.  The  inverse  problem  in  resistivity  sounding  requires  that  a 
model  be  deduced  from  a  set  of  resistivity  sounding  field  data.  Use  of 
the  program  RESINV  to  solve  the  inverse  problem  requires  that  an  initial 
model  (number  of  layers,  layer  thicknesses,  and  resistivities)  be  speci¬ 
fied;  this  initial  model  can  be  determined  by  examination  of  the  field 
data.  The  number  of  layers  in  the  initial  model  will  not  be  altered  by 
the  program;  however,  the  layer  thicknesses  and  resistivities  will  be 
iteratively  adjusted  until  a  good  fit  to  the  field  data  is  achieved.  The 
inversion  scheme  is  described  in  Davis  (1979a)  and  the  program  is  de¬ 
scribed  in  Davis  (1979a,  b)  and  Mooney  (1979).  Davis  used  an  inversion 
procedure  developed  originally  by  Merrick  (1977)  for  Schlumberger  sound¬ 
ing  data.  The  iterative  adjustment  is  accomplished  using  Marquardt's 
algorithm  (Marquardt,  1963),  which  is  an  optimized  combination  of 
Newton-Gauss  and  gradient  inversion  methods. 
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INPUT  NO.  1 - INDEX  (ARRAY  TYPE) 

=2 

INPUT  NO.  2 — SPAC,E,M 
=1,2,13 

INPUT  NO.  3,  MODEL  PARAMETERS,  THICKNESSES (H)  AND  RESISTIVITIES (R) - H 

(1)  »H(2)  - - ,H(E-1),R(1), _ _  R(E) 

=10,300,900 

APPARENT  RESISTIVITY  VALUES 

‘  • 

WENNER  ARRAY 
2  LAYER  MODEL. 


LAYER  NO. 

THICKNESS 

RESISTIVITY 

1 

10.000 

300.000 

• 

2 

900.00 

SPACING 

RHO 

1.00 

300.114 

• 

1.47 

300.369 

'  • 

2.15 

301.155 

3.16 

303.505 

4.64 

310.133 

6.81 

326.964 

10.00 

363.097 

• 

14.68 

425.195 

21.54 

509.295 

31.62 

602.067 

46.42 

689.895 

68.13 

763.446 

100.00 

818.245 

• 

Figure  7. 

Input  data  to  RESDIR  and  program  output  for  the  case 

P,  =  1/3p2 

shown  in  Figure  6  (User  input  is  indicated  by  an 

sign.) 
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ELECTRODE  SPACING 

Figure  8.  Schlumberger  array  sounding  curves  for  three-layer  model 
with  p  =  1000  ohm-m  ,  p„  =  100  ohm-m,  p  =  2000  ohm-m,  and  h  = 

10  m  (Case  1— =  10  m  ;  Case  2—  to  =  50m;  Case  3--^  =  100  mf) 

20.  Using  the  techniques  of  RESDIR,  apparent  resistivities  for 
the  initial  model  are  computed  and  compared  with  the  field  data.  A 
derivative  matrix  consisting  of  partial  derivatives  of  apparent  resis¬ 
tivity  with  respect  to  each  model  parameter  is  computed.  Corrections 
to  each  model  parameter  are  determined  from  a  generalized  inversion  of 
the  derivative  matrix.  The  corrections  are  added  to  initial  model  and 
a  new  set  of  apparent  resistivities  and  layer  thicknesses  are  computed. 
This  procedure  is  continued  until  the  root-mean-square  (rms)  error  falls 
below  a  specified  convergence  criterion. 

21.  Even  though  a  given  initial  model  may  be  adjusted  to  a  final 
model  which  results  in  computed  apparent  resistivities  that  closely  fit 
field  data,  the  model  is  not  unique  and  may  not  be  geologically  correct 
or  even  reasonable.  Any  independent  geologic  control  which  is  known  for 
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the  site  should  be  utilized  to  constrain  the  inversion  process;  any  of 
the  model  parameters  can  be  specified  as  fixed,  as  dictated  by  geologic 
control,  and  will  not  change  during  the  inversion  process.  In  general, 
the  minimum  number  of  layers  required  to  produce  the  essential  features 
of  the  field  sounding  curve  should  be  used  initially,  adding  layers  for 
subsequent  models  only  if  a  good  fit  is  not  achieved  with  the  minimum 
number  of  layers.  The  initial  model  can  be  chosen  by  the  use  of  graph¬ 
ical  and  empirical  techniques,  such  as  curve- fit ting,  asymptotes,  and 
inflection  points  of  field  curves,  Barnes  layer  method,  Moore  cumulative 
method.  Inverse  slope  method,  or,  in  many  cases,  just  by  examination  of 
the  field-sounding  curve  (Hugdahl  and  Dahl,  1979;  Barnes,  1954;  Sanker 
Narayan  and  Ramanujachary ,  1967;  Moore,  1945;  Telford  et  al.,  1976).  The 
examples  which  follow  will  illustrate  some  of  these  techniques.  Success¬ 
ful  use  of  RESINV  depends  to  a  greater  extent  on  the  particular  set  of 
data  involved,  the  quality  of  the  data  (including  lack  of  lateral  effects* 
in  the  data) ,  and  the  experience  of  the  interpreter.  The  best  results 
with  RESINV  will  be  achieved  when  there  is  good  geologic  control  and/or 
when  the  interpreter  is  familiar  with  the  geologic  sequence  likely  to  be 
encountered  in  a  particular  area. 

Input  data 

22.  All  data  are  input  in  free-field  format.  A  progr«wi  I  sting 
for  RESINV  is  in  Appendix  C.  Input  data  requirements  are  as  follows: 

Input  No.  1:  INDEX 

INDEX — array  type;  enter  1^  for  Schlumberger  array, 

for  Wenner  array,  or  _3  for  dipole-dipole  array 

Input  No.  2:  SPAC,  E,  M,  NN,  RMSC 

SPAC — smallest  a-spacing  (for  Wenner  array)  or  smallest 
L-spacing  (for  Schlumberger  array) 

E — specifies  number  of  layers  for  model 


*  Lateral  effects,  i.e.,  lateral  or  horizontal  changes  in  resistivities 
of  near-surface  materials,  can  introduce  errors  in  the  inversion  model 
and  in  some  cases  may  result  in  fictitious  layers  in  the  model.  Many 
times,  lateral  effects  can  be  easily  recognized  on  resistivity  shift¬ 
ing  of  curve  segments  (for  Schlumberger  soundings)  or  graphical 
smoothing. 


M — number  of  field  readings 

NN — number  of  fixed  layer  (model)  parameters 

RMSC — root-mean-square  error  cutoff  value  in  percent 
(typically  use  1  to  5  percent) . 

Input  No.  2A:  IX  (Input  only  for  dipole-dipole  array, 

INDEX  =3) 

IX — enter  0  if  r  is  varied  (n  constant)  or  enter  .1 
if  n  is  varied  (r  constant) 

Input  No.  2B:  N 

If  IX  =  0,  enter  one  n-value 
If  IX  =  1,  enter  M  n-values 

Input  No.  3:  INDX1 

INDXl — enter  JL  if  field  data  are  at  perfectly  logarith¬ 
mic  electrode  intervals,  or  enter  ()  if  otherwise 

Input  No.  3A:  (SN(1),  SN(2) . SN(M) 

SN(1) — electrode  spacings,  M-values.  Skip  if  INDXl  =  1 

Input  No.  4:  R2(l),  R2(2),  _ R2(M) 

R2(l) — field  apparent  resistivities,  M-values,  each 
corresponding  to  SN(1) 

Input  No.  5:  Model  parameters  (P(I),  1=1,  2E  -  1) 

Enter  E-l  layer  thicknesses,  immediately  followed  by 
E  layer  resistivities 

Input  No.  6:  (NF(I) ,  I  =  1)  NN) 

NF(I) — fixed  parameters.  There  should  be  a  total  of 
NN  numbers  specifying  which  of  the  model 
parameters  in  Input  No.  5  are  to  be  fixed.  The 
NF  number  assignment  is  consecutively  from 
NF  =  1  for  P(l)  to  NF  =  2E  -  1  for  P(2E  -  1). 

23.  Program  execution  will  terminate  when  (a)  the  rms  error 
drops  below  RMSC,  (b)  the  program  completes  15  iterations,  (c)  a  minimum 
is  reached  before  either  (a)  or  (b)  occurs  and  all  further  iterations 
increase  the  sum  of  squares  (in  this  case,  the  note  "J1  =  JMAX — TRIAL 
MODEL  will  not  converge,"  or  (d)  INDEX  is  set  equal  0.  The  program  will 
cycle  to  accept  another  set  of  data  until  INDEX  =  0  is  input. 

Program  output 

24.  Program  output  consists  of  printed  listings  of  the  results 
of  the  input  initial  model  calculations  (iteration  No.  0)  and  computed 
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final  model  calculations  and  plots  of  field  data,  initial  model,  and 
final  model.  The  output  sequence  and  content  is  as  follows: 

a.  The  results  of  iteration  No.  0  are  printed;  these 

consist  of  a  tabular  listing  of  the  input  initial  model 
parameters,  tabular  listing  of  electrode  spacing,  com¬ 
puted  model  apparent  resistivity,  and  field  apparent 
resistivity,  and  finally  the  rms  error. 

_b.  A  plot  of  the  sounding  curve  for  the  input  initial 

model  is  now  generated  (see  Appendix  B  for  plot  specifi¬ 
cation  input  sequence) . 

£.  An  optional  plot  of  the  field  sounding  curve  can  now  be 
generated  superimposed  on  the  plot  in  J3. 

ji.  The  results  of  the  final  iteration  are  printed  (includ¬ 
ing  final  rms  error) . 

e^.  A  plot  of  the  sounding  curve  for  the  final  (best-fit) 
model  is  generated,  which  can  be  superimposed  on  the 
plots  in  and  £. 

Examples 

25.  Example  1.  In  order  to  illustrate  the  input  parameter 
sequence  and  the  capability  of  RESINV  to  converge  to  a  known  model,  the 
sounding  curve  corresponding  to  case  1  in  Figure  8  was  digitized  and  the 
resulting  apparent  resistivity  versus  L-spacing  data  were  input  to  RESINV. 
The  apparent  resistivity  values  for  12  selected  electrode  spacings 
(from  6  to  400  m)  were  estimated  directly  from  the  log- log  plot,  so  the 
input  data  would  have  "noise''  due  to  errors  in  estimating  values  from  the 
plot.  An  initial  three-layer  model  was  deduced  from  the  general  features 
of  the  sounding  curve  in  Figure  8  and  input  to  RESINV.  Results  of  the 
use  of  RESINV  to  find  a  best-fit,  three-layer  model  to  the  input  data 
are  shown  in  Figure  9  as  Case  I;  the  known  model  and  the  initial  model 
are  also  shown.  The  best-fit,  three-layer  model  labeled  Case  II  in 
Figure  9  is  the  result  of  inputting  the  exact  equally  spaced  (logarith¬ 
mically)  output  data  from  RESDIR  corresponding  to  Figure  8,  using  the 
same  initial  model  as  in  Case  I.  For  Case  II,  the  program  converges 
exactly  to  the  known  model;  and  for  Case  I,  the  final  model  is  accept¬ 
able,  with  the  greatest  discrepancies  for  the  second  layer  parameters. 
Figure  10  shows  the  input  data  and  tabular  output  for  Case  I,  and 
Figure  11  shows  the  plotted  output  (field  data  sounding  curve  and  sound¬ 
ing  curve  and  sounding  curves  for  the  initial  and  best-fit  models). 


•  «•••«•« 
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Known 

Model 

Initial 

Model  Used 
for  Input 
to  RESINV 

Case  I 

RESINV  Best 

Fit  Model  (8 
Iterations*) 

Case  II 

RESINV  Best 

Fit  Model  (7 
Iterations**) 
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hx  =  10.00 

hx  =  9.88 

hx  -  10.00 

Px  =  1000.00 

hx  =  20.00 

Pl  *  1000.00 

P3  =  980.94 

P3  =  1000.00 

• 

h2  =  10.00 

h2  =  13.49 

h2  “  10. 02 

P2  =  100.00 

P2  =  135.56 

P2  =  100.15 

• 

P3  =  2000.00 


_  P3  *  2000.00 

P3  «  1899.98 


h2  *  30.00 

P2  -  300.00 


f 


P3  =  1500.00 


[' 

I 

l 

I 


*  RMS  error  =  1.026;  model  began  to  diverge  with  9th  iteration 
**  RMS  error  =  0.002 


Figure  9.  Demonstration  of  ability  of  RESINV  to  converge  to  a 
known  three-layer  model  from  an  initial  model  guessed  from  qual¬ 
itative  features  of  the  sounding  curve  (calculated  with  RESDIR) ; 
Case  I  -  arbitrarily  spaced  data  with  errors  and  Case  II  -  equal 
logarithmically  spaced  exact  data 
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Figure  10.  RESINV  input  data  and  tabular  output  for  Case  I,  Figure  9 
(User  input  indicated  by  sign.) 
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26.  Example  2,  Figure  12  is  a  plot  of  data  from  a  Schlumberger 
sounding  at  a  site  about  8  km  northwest  of  Vicksburg,  Miss.*  Qualitative 
evidence  for  as  many  as  four  layers  can  be  seen  in  the  sounding  curve. 

An  initial  model,  deduced  from  the  sounding  curve,  for  input  to  RESINV 
is  also  shown  in  Figure  12.  Results  of  the  inversion  by  RESINV  are 
shown  in  Figure  13,  where  the  sounding  curve  for  the  best-fit  model  (also 
illustrated  in  the  figure)  is  indistinguishable  from  the  field  data. 

27.  The  sequence  of  resistivities  in  the  model  shown  in  Figure  13 
is  geologically  reasonable  for  the  site:  Layer  1  -  sand  fill;  Layer  2  - 
saturated  silts,  sands,  and  clays  with  organic  material;  Layer  3  - 
freshwater  sands  and  gravels;  Layer  4  -  Yazoo  clay.  Depth  to  the  top 

of  Layer  4  (^90  m) ,  however,  seems  too  large,  since  depths  of  60  to 
70  m  are  typical,  although  the  depths  are  highly  variable. 

RESDAT:  A  General  Purpose  Resistivity 
Data  Processing  Program 

28.  RESDAT  is  a  general  purpose  computer  program  for  processing 
resistivity  field  data.  The  basic  function  of  the  program  is  to  take 
raw  resistivity  field  data  and  process  the  data  using  Equation  1  to 
produce  tabular  and  plotted  output  of  resistivity  as  a  function  of 
profile  position  or  electrode  spacing  for  horizontal  profiling  or  vert¬ 
ical  sounding,  respectively.  Data  from  the  following  survey  types  can 
be  accommodated:  Wenner  profiling,  Wenner  sounding,  Schlumberger  pro¬ 
filing,  Schlumberger  sounding,  and  pole-dipole  surveying.  In  the  case 
of  Wenner  and  Schlumberger  sounding  data,  an  option  is  available  to 
directly  access  a  subroutine  version  of  RESINV  to  interpret  the  data  in 
terms  of  a  resistivity  model.  For  Wenner  sounding  data,  options  are 
available  for  producing  cumulative  sum  (Moore,  1945)  and/or  inverse 
resistivity  (Sanker  Narayan  and  Ramanujachary,  1967)  plots. 

Input  data 

29.  All  data  are  input  in  free-field  format.  A  program  listing 
for  RESDAT  is  given  in  Appendix  D.  If  field  resistance  data  (AV/I)  are 

*  Figure  12  was  produced  by  the  use  of  RESDAT  to  process  the  field  data. 

RESDAT  is  discussed  in  the  next  section  of  this  Part. 
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APPARENT  RESISTIVITY.  OHH-M 


Figure  11.  RESINV  sounding  curves  (initial  model,  field  data, 
and  final  model)  for  Case  I  in  Figure  9 


Figure  12.  Schlumberger  sounding  curve  obtained  at  site 
near  Vicksburg,  Miss. 


APPARENT  RESISTIVITY, 


Final  Model 

Layer 


Figure  13.  Results  of  RESINV  inversion  of  field  sounding 
curve  and  initial  model  shown  in  Figure  12 


in  ohms  and  electrode  spacings  are  in  m  (ft) ,  then  resistivities  will  be 
in  ohm-m  (ohm-ft).  Input  data  are  explained  as  follows: 

Input  No.  1:  Survey  Type 

1 —  Wenner  profiling 

2 —  Schlumberger  profiling 

3 —  Wenner  sounding 

4 —  Schlumberger  sounding 

5 —  Pole-dipole  survey 

For  Survey  Type  1: 

Input  No.  2:  A,  N 

A — a-spacing  (see  Figure  4a) 

N — number  of  data  points 


Input  No.  3:  XI,  Rl,  X2,  R2, 


,SN,  RN 


,  th 


— profile  coordinate  of  i  “  data  poin£^ 

R^ — field  resistance  (AV/I)  value  for  i  data  point 

Input  No.  4: 


Is  factor  (2tt)  included  in  field  resistance  data? 
Type  1^  for  yes  and  2_  for  no. 


•i 


•  1 

i 
1 
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For  Survey  Type  2: 

Input  No.  2:  S,  L,  N 

S,  L — S-  and  L-spacings  (see  Figure  4b) 

N — number  of  data  points 

Input  No.  3:  XI,  Rl,  X2,  R2,  ....  XN,  RN 

Same  as  for  Survey  Type  1. 

Input  No .  4 : 

Same  as  for  Survey  Type  1. 

For  Survey  Type  3: 

Input  No.  2:  POS 

POS — up  to  72  characters  describing  the  location  of 
the  resistivity  sounding  or  other  pertinent 
information 

Input  No.  3:  N 

N — number  of  data  points 

Input  No.  4:  Al,  Rl,  A2,  R2,  ...AN,  RN 

A^ — a-spacing  for  the  i^  data  pointy 

R* — field  resistance  value  for  the  i  data  point 

Input  No.  5: 

Is  factor  (2tt)  included  in  resistance  values? 

Yes  (1),  No  (2) 

Input  No.  6: 

Do  you  want  a  cumulative  sum  plot?  Yes  (1),  No  (2) 
Input  No .  7 : 

Do  you  want  an  inverse  resistivity  plot?  Yes  (1) , 
No  (2) 

Input  No .  8 : 

Do  you  want  to  interpret  data?  Yes  (1),  No  (2) 

If  Yes,  inputs  8A  and  8B  are  required. 

Input  No.  8A:  E,  NN,  RMSC 

E — number  of  model  layers 

NN — number  of  fixed  model  parameters 

RMSC — ras  cutoff  in  percent 

Input  No.  8B:  (P(I),  I  =  1,  2E  -  1) 

Model  parameters;  same  as  RESDIR  Input  No.  3. 

For  Survey  Type  4: 

Input  No.  2:  POS 


Same  as  for  Survey  Type  3 
Input  No .  3 : 

Is  factor  (2tt)  included  in  field  resistance  values? 

Yes  (1),  No  (2) 

Input  No.  4:  N 

N — number  of  data  points 

Input  No.  5:  SI,  LI,  Rl,  S2,  L2,  R2,  ...SN,  LN,  RN 
S^ ,  — S-  and  L-spacing  for  iC^  data  point 

R.^ — field  resistance  value  for  the  i^  data  point 
Input  No.  6: 

Do  you  want  to  interpret  data?  Yes  (1),  No  (2) 

If  yes,  inputs  6A  and  6B  are  required. 

Input  No.  6A:  E,  NN,  RMSC 

Same  as  for  input  No.  8A,  Survey  Type  3. 

Input  No.  6B:  (P(I),  I  =  1,  2E  -  1) 

Model  parameters;  same  as  RESDIR  Input  No.  3. 

For  Survey  Type  5: 

Input  No.  2:  POS 

POS — up  to  72  characters  describing  the  pole-dipole 
current  electrode  station  location  and  profile 
direction  information 

Input  No .  3 : 

Is  factor  (2tt)  included  in  field  resistance  values? 

Yes  (1),  No  (2) 

Input  No.  4:  PP,  N 

PP — potential  electrode  spacing  P^^  (see  figure  4c) 

N — number  of  data  points 

Input  No.  5:  CPI,  Rl,  CP2,  R2,  ...CPN,  RN 

CP. — distance  from  current  electrode  to  first  potential 
1  electrode  C.P..  (see  Figure  4c)  for  ith  data 
point  1  1 

R^ — field  resistance  value  for  i1"*1  data  point 

For  all  five  survey  types,  an  option  is  available,  at  the  end  of  the 
output  sequence  described  below,  to  repeat  the  input  sequence  for 
another  data  set  of  the  same  survey  type. 
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30.  The  output  of  RESDAT  will  vary  depending  on  survey  type  as 
listed  below: 


a.  Survey  Type  1:  Wenner  Profiling  Survey 

(1)  Tabular  listing  of  profile  position  and  apparent 
resistivity 

(2)  Plot  of  apparent  resistivity  versus  profile  position 
1j.  Survey  Type  2:  Schlumberger  Profiling  Survey 

(1)  Tabular  listing  of  profile  position  and  apparent 
resistivity 

(2)  Plot  of  apparent  resistivity  versus  profile  position 
c^.  Survey  Type  3:  Wenner  Sounding 

(1)  Tabular  listing  of  a-spacing  and  apparent  resistivity 

(2)  Plot  of  apparent  resistivity  versus  a-spacing 
sounding  curve,  either  linear  or  log-log 

(3)  Optional  plots  of  cumulative  resistivity  sum  and/or 
inverse  resistivity  versus  a-spacing  plots 

(4)  If  data  interpretation  is  elected,  all  the  output 
described  for  RESINV  will  follow 

d.  Survey  Type  4:  Schlumberger  Sounding 

(1)  Tabular  listing  of  a-spacing,  L-spacing,  and  apparent 
resistivity 

(2)  Plot  of  apparent  resistivity  versus  L-spacing,  either 
linear  or  log-log 

(3)  If  data  interpretation  is  elected,  all  the  output 
described  for  RESINV  will  follow 

e.  Survey  Type  5:  Pole-Dipole  Survey 

(1)  Tabular  listing  of  C^P^,  and  apparent  resistiv¬ 

ity 

(2)  Plot  of  apparent  resistivity  versus  X  ,  where 

X  =  (C^P^  +  i.e.,  each  value  of  apparent 

resistivity  is  plotted  at  the  profile  location  which 
is  the  midpoint  of  the  potential  electrode  locations 

Examples 

31.  Example  1.  Figure  12  is  an  example  of  the  use  of  RESDAT  to 
process  and  plot  field  data  from  a  Schlumberger  sounding. 

32.  Example  2.  A  large  portion  of  the  Medford  Cave  site  (see 
Figure  1)  was  surveyed  by  resistivity  profiling,  using  the  Wenner  array 


with  a  =  40  ft*  and  10-ft  station  spacing  along  the  profile  lines.  A 
plot  of  apparent  resistivity  for  a  =  40  ft  for  one  profile  line  at  the 
Medford  Cave  site  is  shown  in  Figure  14  (apparent  resistivity  for 
a  =  10  ft  is  also  shown  along  the  same  profile  line).  Apparent  resis¬ 
tivity  for  all  the  profile  lines  was  input  to  the  general  purpose 


Figure  14.  Two  horizontal  resistivity  profiles  along  the 
(0,80)  to  (260,80)  line  at  the  Medford  Cave  Test  site  (see 
(  Figure  2) 

contouring  program  CONTOUR  (Tracy,  1974)  to  produce  the  apparent  resis¬ 
tivity  contour  map  shown  superimposed  in  Figure  15.  A  plan  map  of  the 
|  known  cavity  system  at  the  site  is  shown  superimposed  in  Figure  15.  An 

a-spacing  of  40  ft  was  chosen  so  that  the  depth  of  investigation  of  the 
resistivity  survey  would  be  sufficient  to  include  the  effects  of  the 
known  cavity  system.  The  apparent  resistivity  contour  map  is  significant¬ 
ly  affected  by  and  reflects  the  presence  of  the  cavity  system.  Since 
the  "normal  background"  resistivity  is  apparently  400  to  600  ohm-ft, 
the  cavity  system  is  responsible  for  a  resistivity  anomaly  of  about 
1000  ohm-ft,  although  the  shape  of  the  resistivity  contours  does  not 
closely  match  the  cavity  shape. 

*  A  table  of  factors  for  converting  U.  S.  customary  units  of  measurement 
to  metric  (SI)  units  is  presented  on  page  4. 
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Figure  15.  Resistivity  contour  map  for  a  portion  of  the  Medford  Cave 
site,  Wenner  electrode  array  with  40-ft  electrode  spacing 


33.  Example  3.  The  pole-dipole  array  (Figure  4c)  can  be  used  in 
a  survey  procedure  which  combines  horizontal  profiling  and  vertical 
sounding  concepts  (sometimes  called  the  Bristow-Bates  technique;  Bris¬ 
tow,  1966;  Bates,  1973;  Butler  and  Murphy,  1980;  Fountain  et  al. ,  1975; 
and  Franklin  et  al. ,  1981).  The  method  is  well  suited  for  the  detection 
of  localized  anomalies  such  as  cavities  and  tunnels.  The  current  elec¬ 
trode  is  placed  as  far  away  from  the  survey  area  as  practicable. 

The  potential  electrode  pair  is  moved  outward  on  both  sides  of  the  cur¬ 
rent  electrode  ,  keeping  the  spacing  constant  (typically  2  to 

3m),  to  a  distance  from  somewhat  greater  than  the  desired  depth  of 

investigation  (typically  50  m  or  less).  is  then  moved  along  the 

profile  line  to  a  new  location  (typically  10  to  20  m  from  previous 
location)  and  the  procedure  is  repeated;  overlapping  lines  are  used  for 
multiple  coverage.  The  graphical  interpretation  procedure,  described 
by  Bates  (1973)  and  Fountain  et  al.  (1975),  tends  to  account  for  the 
normal  variation  of  resistivity  with  depth  and  selects  high  or  low  resis¬ 
tivity  anomalies  with  respect  to  the  normal  variation.  Figure  16  illus¬ 
trates  the  graphical  procedure  for  location  of  anomalies.  Circular  arcs 
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Figure  16.  Simplified  example  of  graphical  interpretation  of  pole- 
dipole  resistivity  data  for  anomaly  location  (Bates,  1973) 


are  drawn  through  locations  of  potential  electrodes  showing  anomalous 
potential  differences,  with  the  position  as  center.  Intersections 

of  the  arcs  are  assumed  to  define  the  locations  of  anomalies.  Figure  16 
shows  two  anomalies  located  by  three  traverses  with  different  loca¬ 

tions.  The  interpretation  procedure  and  the  multiplicity  and  overlapping 
of  data  tend  to  eliminate  spurious  anomalies  and  allow  discrimination 
between  near-surface  anomalies  and  anomalies  at  depth.  This  technique 
has  been  used  successfully  for  a  number  of  investigations  in  karst  regions 
(Bates,  1973;  Butler,  1980c;  Cooper  and  Bieganousky,  1978;  Fountain  et 
al.,  1975)  and  also  for  tunnel  location  in  hard  rock  (Fountain,  1975). 
These  investigations  offer  strong  empirical  support  for  the  Bristow- 
Bates  graphical  method,  in  spite  of  the  objection  that  it  does  not  have 
a  rigorous  theoretical  basis;  i.e.,  the  model  on  which  it  is  based  is 
qualitative. 

34.  Several  profile  lines  at  the  Medford  Cave  site  were  surveyed 
using  the  pole-dipole  survey  procedure,  and  results  of  the  survey  along 
the  80W  north-south  line  will  be  presented  here.  Figure  17  shows  the 
pole-dipole  sounding  results  for  six  locations  of  C^  along  the  profile 
line,  where  the  field  data  have  been  processed  and  plotted  by  RESDAT. 

The  potential  electrodes  were  moved  out  to  a  distance  X  *  80  ft  on 
each  side  of  each  C^  station,  where  X  is  the  distance  to  the  center 
of  the  potential  electrodes.  The  distance  P.^  =  10  ft  »  and  x  is 
incremented  by  5  ft  between  measurements.  Finally,  the  distance  between 
stations  is  selected  as  30  ft;  this  procedure  allows  an  anomaly  near 
the  surface  to  be  defined  by  as  many  as  seven  intersecting  hemispherical 
shells,  and  the  number  of  possible  intersections  decreases  with  depth. 

The  general  trend  indicated  by  the  sounding  data  in  Figure  17  is  increas¬ 
ing  apparent  resistivity  with  deptu.  Numerous  anomalies  are  indicated 
in  the  sounding  curves,  but  there  is  no  clear  indication  of  subsurface 
layering.  For  purposes  of  picking  anomalies,  linear  trend  lines  are  used 
as  indicated  in  Figure  17.  Clearly  there  is  a  considerable  amount  of 
subjectivity  in  this  procedure  of  picking  high  and  low  anomalies;  success 
relies  on  (a)  experience  of  the  interpreter  and  (b)  the  considerable 
redundancy  of  the  data.  The  results  of  an  analysis  of  the  complete 
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Figure  17.  Six  pole-dipole  sounding  curves  at  30-ft  spacing  along  the 
(0,80)  to  (260,80)  line  at  the  Medford  cave  site 


profile  line,  using  the  techniques  illustrated  in  Figure  16,  are  shown 
in  Figure  18.  The  correlation  of  the  resistivity  anomalies  with  known 
geologic  features  (Butler,  in  press)  is  quite  good. 

35.  A  major  drawback  to  the  pole-dipole  survey  technique  just 
presented  is  the  time  required  to  conduct  the  field  tests  and  process 
and  interpret  the  data.  Use  of  RESDAT  to  process  and  plot  the  data  is 
a  considerable  help,  but  there  is  still  much  which  could  be  done  to  auto¬ 
mate  the  procedures.  An  automated  resistivity  data  acquisition  system 
demonstrated  by  the  Southwest  Research  Institute  (SwRI)  at  the  Medford 
Cave  site  appears  to  be  a  solution  to  the  field  time  constraint  (Foun¬ 
tain  and  Herzig,  1980).  Data  are  recorded  in  a  digital  format  with  the 
SwRI  system,  which  can  then  be  processed  by  the  graphical  procedure 
presented  here  or  by  an  automated  interpretation  procedure  developed  by 
SwRI  (Fountain  and  Herzig,  1980;  Spiegel  et  al.,  1980).  Although  work  on 
the  automated  technique  is  continuing  at  SwRI,  currently  the  technique 
is  limited  by  the  assumption  of  a  single  anomaly  in  a  uniform  half-space; 
while  the  graphical  procedure  used  in  this  report  is  subjective,  it  is 
not  subject  to  these  limitations.  A  technique  which  has  been  success¬ 
fully  utilized  at  WES  for  a  specific  data  set  is  to  digitize  the  loca¬ 
tions  of  high  and  low  anomalies  along  the  profile  line  and  then  deter¬ 
mine  subsurface  anomaly  locations  with  an  arc-intersection  algorithm 
programmed  on  a  minicomputer;  this  procedure  has  not  yet  been 
generalized. 
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Figure  18.  Interpreted  pole-dipole  resistivity  cross  section  compared  with  known  geology  along 
the  (0,80)  to  (260,80)  line  at  the  Medford  Cave  site  (Numbers  indicating  increasing  confidence 
levels  correspond  to  the  number  of  arc  intersections  which  define  the  anomaly.) 


PART  III:  MICROGRAVIMETRIC  TECHNIQUES 


Background 

36.  Microgravimetry  is  a  geophysical  method  that  offers  special 
advantages  over  other  subsurface  exploration  methods  in  a  variety  of 
applications.  The  term  "microgravimetry"  refers  to  geophysical  investi¬ 
gations  involving  relative  measurements  of  the  acceleration  of  gravity 
that  require  measurement  accuracy  and  precision  and  instrument  sensitiv¬ 
ity  in  the  yGal  range  (1  yGal  =  10  ^  Gal  =  10  ^  cm/sec^  -  10  ^  times  the 
earth's  normal  gravitational  acceleration).  For  geophysical  applica¬ 
tions,  delineation  of  features  with  characteristic  dimensions  of  1  m  or 
less  is  often  desirable,  while  the  maximum  depth  of  interest  may  typi¬ 
cally  be  100  m  or  less.  Many  attempts  to  apply  gravimetry  to  geotech¬ 
nical  and  shallow  structural  problems  have  been  disappointing  in  that 
the  anomalies  due  to  small  structures  of  interest  could  not  be  extracted 
from  the  data;  i.e.,  only  anomalies  due  to  very  large  or  very  shallow 
structures  (or  some  fortuitous  combination  of  the  two  factors)  could  be 
resolved.  However,  with  modern  "microgal"  gravity  meters  and  refined 
field  and  interpretation  procedures,  microgravimetry  is  a  viable  geo¬ 
physical  tool  for  application  to  military  facility  foundation  and  peri¬ 
meter  security  investigations  (Butler,  1980a). 

37.  The  gravity  method  involves  the  measurement  of  the  vertical 
component  of  the  gravitational  attraction  at  the  surface.  The  measure¬ 
ment  or  determination  of  the  first  vertical  and  horizontal  derivatives 
(gradients)  of  the  vertical  component  of  the  gravitational  attraction 
can  be  of  considerable  fundamental  and  practical  importance.  Measure¬ 
ment  of  the  gradients  or  determination  of  the  gradients  from  gravity 
profiles  offers  two  particular  advantages  over  measurement  of  just 
gravity  alone: 

.a.  The  gradient  profiles  have  diagnostic  properties,  that, 
in  many  cases,  make  subsurface  structure  identification 
more  straightforward. 

b^.  The  gradients  selectively  filter  out  the  effects  of 

deeper-seated  structures  and  enhance  anomalies  caused  by 


shallow  structures  of  interest  in  geotechnical 
investigations. 

Butler  (1980a,  b,  c)  discusses  the  measurement  and  application  of  gravity 
gradients. 

38.  Field  procedures,  data  processing,  and  interpretation  tech¬ 
niques  for  microgravimetric  surveys  are  discussed  in  detail  in  Butler 
(1980a,  d,  and  in  press)  and  Butler  et  al.  (in  press);  only  a  brief  out¬ 
line  of  these  procedures  and  techniques  will  be  presented  here.  Micro- 
gravimetric  field  procedures  can  be  summarized  as  follows: 

a.  Establish  survey  grid  or  profile  line  and  determine 
relative  elevations  at  all  grid  stations. 

b^.  Establish  gravity  base  station. 

£.  Conduct  gravity  survey  returning  to  the  base  station 
frequently  (at  least  once  per  hour) . 

cl.  Correct  gravity  data  in  a  timely  manner  while  in  the 
field  so  that  questionable  data  can  be  discovered  and 
the  associated  station  reoccupied  for  another  gravity 
measurement  and  so  that  the  density  of  gravity  stations 
in  areas  of  interest  can  be  increased. 

39.  The  sequence  of  corrections  applied  to  gravity  measurements 
is  as  follows: 

a.  Correct  for  changes  in  gravity  at  the  site  as  a  function 
of  time  caused  by  earth-tide  variations  and  gravity 
meter  drift  (drift  correction). 

_b.  Correct  for  variations  in  north-south  positions  of 
gravity  stations  (latitude  correction) . 

c^.  Correction  for  elevation  differences  between  stations 
(free-air  and  Bouguer  corrections). 

Correct  for  topographic  variations  around  each  gravity 
station. 

e.  Plot  and  contour  the  gravity  data. 

AO.  Although  interpretation  techniques  vary  greatly  depending  on 
the  investigator  as  well  as  the  objectives  of  the  survey,  the  following 
will  suffice  for  the  present  discussion: 

a.  Separate  regional  gravity  components  in  the  data  from 
the  local  components;  this  is  called  the  regional- 
residual  separation. 


_b.  Optionally  generate  processed  gravity  maps,  such  as 
derivative  maps  (Butler,  in  press)  or  upward /downward 
continuation  maps  (Grant  and  West,  1965). 

£.  Identify  gravity  anomalies. 

ci.  Classify  anomalies  for  qualitative  interpretation  or 
decide  on  a  model  for  quantitative  interpretation. 

For  quantitative  interpretation,  determine  parameters  of 
the  model. 

41.  Considering  the  procedures  and  techniques  identified  in 
microgravity  data  acquisition,  processing,  and  interpretation,  the  fol¬ 
lowing  list  identifies  specific  steps  which  could  facilitate  and/or 
improve  the  microgravity  method: 

£i.  In  item  37a.,  use  of  state-of-the-art  electronic  surveying 
systems  for  establishing  survey  grids  and  obtaining 
relative  elevations  could  substantially  reduce  data 
reduction  time  for  elevation  surveys. 

_b .  Develop  computer  algorithms  for  generating  gravity 

station  occupation  schemes  for  given  survey  area  size 
and  shape  and  base  station  location;  these  schemes 
should  optimally  randomize  possible  errors  over  the 
gravity  stations  occupied  between  base  station  reoccupa¬ 
tions,  minimize  walking  distances,  and  include  a  desired 
20  percent  station  reoccupation  rate. 

c.  Develop  computer  programs  for  automatically  correcting 
gravity  data  and  producing  Bouguer  gravity  contour  maps. 

fi.  Develop  automated  techniques  for  making  the  regional- 
residual  separation  and  plotting  residual  gravity  maps. 

j2.  Develop  automated  techniques  for  generating  processed 
gravity  maps. 

f_.  Develop  procedures  for  identifying  and  classifying 
anomalies. 

j>.  Develop  efficient  procedures  for  determining  the 
parameters  of  structural  models. 

42.  Only  selected  aspects  of  this  "shopping  list"  can  be 
addressed  as  part  of  the  current  effort;  these  aspects  are  briefly 
discussed,  three  computer  programs  developed  as  part  of  this  effort  are 
documented,  and  short  selected  examples  of  the  use  of  the  computer  pro¬ 
grams  are  presented.  Finally,  two  more  detailed  examples  will  be 
presented  which  illustrate  the  use  of  the  computer  programs  for  proces¬ 
sing  and  interpreting  gravity  data. 


Gravity  Station  Occupation  Schemes 

43.  In  microgravity  surveying,  it  is  desirable  to  keep  errors  • 

from  all  sources  as  low  as  possible;  generally  an  accuracy  of  +5  yGal 

or  better  is  desired  in  order  that  anomalies  at  the  10-yGal  level  can 
be  detected  (Butler,  1980a).  The  manner  or  sequence  in  which  gravity 

stations  are  occupied  during  a  survey  can  greatly  influence  the  accur-  • 

acy  and  overall  quality  of  a  microgravity  survey.  All  stations  that  are 
occupied  between  successive  reoccupations  of  the  base  station  are 
referred  to  as  a  program.  Each  program  should  be  planned  to  allow  a 

base  station  reoccupation  in  less  than  one  hour  and  to  include  gravity  • 

station  reoccupations  at  an  average  rate  of  about  20  percent.  Since  the 
average  time  for  acquiring  gravity  measurements  in  a  microgravity  survey 
is  about  5  min  per  station,  a  program  generally  will  consist  of  <10  grav¬ 
ity  readings,  of  which  typically  eight  readings  would  be  "first-time"  • 

station  occupations  and  two  readings  would  be  station  reoccupations. 

44.  Programs  should  be  designed  to  occupy  stations  in  a  "zigzag" 

or  "leap-frog"  fashion  in  order  to  distribute  random  errors  and  to  pre¬ 
vent  any  cumulative  errors  from  combining  to  produce  fictitious  anoma-  • 

lies  or  elongated  anomalies  such  as  can  result  from  long,  continuous 

programs  of  station  occupations  (Butler,  1980a).*  Figure  19  is  a  plan 
of  the  gravity  stations  for  the  Manatee  Springs  site  microgravity  sur¬ 
vey,  showing  several  typical  programs.  Clearly,  the  station  occupation  • 

scheme  shown  in  Figure  19  is  not  optimum,  although  errors  will  be 
properly  randomized.  An  optimally  generated  occupation  scheme  should 
have  approximately  equal  walking  distances  between  each  station  in  the 
program,  including  the  base  station  at  the  beginning  and  end  of  a  pro-  • 

gram.  Optimal  station  occupation  schemes  are  considered  an  important 
aspect  of  microgravity  surveying,  and  work  will  continue  toward  finding 
expeditious  manual  or  computer-aided  methods  for  generating  occupation 
schemes .  • 


*  Personal  communication,  1979,  R.  Neumann,  Compagnie  Generale  de 
Geophysique,  Massy,  France. 
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Figure  19.  Gravity  station  plan  with  illustration  of  selected  programs 
(All  programs  can  be  considered  to  begin  and  end  with  the  base  station 

(0,200).) 


Use  of  Theoretical  and  Measured 
Earth-Tide  Records 

45.  Reoccupations  of  the  base  station  during  a  microgravity  sur¬ 
vey  are  used  to  construct  a  survey  drift  curve.  The  drift  curve,  which 
includes  components  due  to  both  earth  tides  and  instrument  drift,  is 
used  to  correct  measurement  values  at  all  stations  in  the  survey  grid 
for  time  variations  of  the  gravity  values.  It  is  assumed  that  the  time 
variation  observed  at  the  base  station  is  the  same  at  all  stations. 
Generally,  the  drift  curve  will  consist  of  the  earth-tide  component, 
which  can  actually  be  calculated  theoretically  for  a  given  site,  a  long¬ 
term  cumulative  instrument  drift  component,  and  a  noncumulative  instru¬ 
ment  "drift"  component,  which  can  be  caused,  for  example,  by  "rough 
handling"  of  the  gravity  meter.  Frequent  base  station  reoccupations 
coupled  with  the  use  of  theoretical  and  measured  tidal  curves  can  be  of 
great  value  in  assessing  the  magnitudes  of  these  components  of  the  drift 
curve,  for  assuring  the  consistency  of  gravimeter  performance  during  the 
survey,  and  for  improving  the  overall  accuracy  of  microgravity  surveys. 

46.  Figure  20  is  an  example  of  the  use  of  measured  and  theoret¬ 
ical  earth/gravity  tide  records  in  conjunction  with  the  field  drift 
curve  for  the  microgravity  survey  at  the  Medford  Cave  site.  Since  the 
overnight  tidal  records  were  recorded  in  a  different  location  (i.e.,  a 
local  motel  room),  the  segments  have  been  shifted  vertically  to  best  fit 
the  base  station  curve.  The  phase  of  the  two  sets  of  data  agrees  quite 
well,  but  the  amplitude  variations  of  the  field  curve  are  more  extreme. 
The  arrow  marks  a  base  station  reading  just  after  an  accidental  jolt  to 
the  gravity  meter;  because  of  the  frequent  base  station  reoccupations, 
the  recovery  period  after  the  jolt  is  adequately  defined. 

47.  The  theoretical  curve  in  Figure  20  was  produced  by  the  pro¬ 
gram  TIDES,  which  is  described  later  in  this  Part.  There  is  approximate- 
17  a  4-hr  phase  difference  between  the  theoretical  and  measured  tidal 
curves;  such  phase  differences  are  not  uncommon.*  Discounting  the  phase 

*  An  example  is  given  later  in  this  Part  of  a  case  where  the  phase 
agreement  is  nearly  exact. 
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shift,  there  is  good  agreement  between  the  amplitudes  of  the  measured 
tidal  curve  (open  circles.  Figure  20a)  and  the  theoretical  tidal  curW 
(Figure  20b).  The  long-term  cumulative  drift  of  the  gravity  meter  \ 
appears  to  be  about  2  yGal/hr,  although  there  are  nontidal  meter  drifts 
much  larger  than  this  which  are  not  cumulative.  Theoretical  tidal 
curves  can  be  produced  prior  to  conducting  field  work  to  indicate  the 
nature  of  the  tidal  variation  to  be  expected  at  a  given  site  during  a 
given  time  frame. 

TIDES:  A  Computer  Program  for  Computing  the 
Theoretical  Earth  Gravity  Tide 

48.  The  tidal  gravity  variation  at  a  point  on  the  surface  depends 
primarily  on  two  factors:  (a)  variation  in  gravitational  attraction  due 
to  varying  positions  on  the  sun  and  moon  (and  to  a  smaller  extent  the 
planets)  with  respect  to  the  point;  and  (b)  amplification  of  the  magni¬ 
tude  predicted  by  (a)  due  to  yielding  of  the  solid  earth  in  response  to 
the  varying  attractive  force,  i.e.,  elevation  of  the  point  actually 
varies  with  time. 

49.  Using  the  equations  of  Longman  (1959),  it  is  possible  to 
calculate  the  theoretical  tidal  effect  at  any  point  on  the  earth's  sur¬ 
face.  The  equations  include  a  compliance  or  gravimetric  amplification 
factor  to  account  for  yielding.  Comparison  of  theoretical  and  measured 
earth  tide  records  can  in  principle  yield  a  determination  of  this 
amplification  factor  for  any  location;  typical  values  range  from  1.138 
to  1.240  (Garland,  1977).  Observations  of  the  earth  tide  can  give 
information  not  only  on  gross  earth  structure  but  also  on  anomalous 
tidal  yielding  in  areas  of  major  faults  or  other  significant  tectonic 
features.  TIDES,  modified  from  an  original  program  by  Robert  Jachens,* 
computes  the  theoretical  earth  tide  for  any  location  and  any  time  inter¬ 
val.  A  program  listing  of  TIDES  is  in  Appendix  E. 


*  Personal  communication,  Robert  Jachens,  U.  S.  Geological  Survey, 
Menlo  Park,  Calif. 
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50.  All  data  are  input  in  free-field  format.  Data  input  are 

explained  as  follows: 

Input  No.  1:  NCOMP,  MM 

NCOMP — number  of  tidal  input  data  sets 
MM — time  increment  in  minutes  between  tide  value 
calculations 

Input  No.  2:  SLATD,  SLATM,  SLONGD,  SLONGM,  SELEV,  DATEM, 
DATED,  DATEY,  TIMEH,  TIMEM 

SLATD,  SLATM — site  latitude  in  degrees  (SLATD)  and 
decimal  minutes  (SLATM) 

SLONGD,  SLONGM — site  longitude  in  degrees  (SLONGD)  and 
decimal  minutes  (SLONGM) 

SELEV — site  elevation  in  metres  (MSL) 

DATEM,  DATED,  DATEY — starting  date  for  calculation  in 

month  (DATEM) ,  day  (DATED) ,  and 
year  (DATEY)  form 

TIMEH,  TIMEM — starting  time  for  calculation  in  hours 
(TIMEH)  and  minutes  (TIMEM) ,  Greenwich 
time  (24-hr  clock) 

Input  No.  3:  NTOTAL 

NTOTAL — total  number  of  time  increments  to  be  calculated, 
i.e.,  the  total  length  of  the  tidal  record  will 
be  =  MM  x  NTOTAL 


Program  output 

51.  Program  output  consists  of  a  compressed  listing  of  calcu¬ 
lated  tidal  values  and  a  plot  of  tide  variation  as  a  function  of  time. 
Since  the  number  of  values  calculated  in  a  tidal  record  may  be  very 
large,  a  compressed  listing  of  just  the  tidal  values  separated  by  a 
short  blank  space  in  a  continuous  fashion  is  given;  each  value  in  the 
list  is  separated  in  time  by  MM-minutes.  The  calculated  tidal  values 
are  referenced  to  a  zero  value  and  have  the  proper  sign  for  algebraically 
adding  to  gravity  survey  values  to  correct  for  tidal  variations  if 
desired.  Next,  a  plot  of  tidal  variation  versus  time  is  generated  using 
PL0T2  (see  Appendix  B) . 


52.  An  example  output  plot  from  TIDES  has  already  been  discussed 
(Figure  20).  As  another  example,  Figure  21  compares  theoretical  and 
observed  earth  tides  for  Vicksburg,  Miss.,  for  a  three-day  period  (16- 
18  May  1980).  The  phases  of  the  two  curves  in  Figure  21  agree  quite 
well.  Amplitudes  of  the  minima  and  secondary  maxima  of  the  two  curves 
agree  closely;  however,  the  primary  maxima  of  the  measured  tidal  curve 
are  nominally  50  pGal  larger  than  tne  corresponding  maxima  on  the 
theoretical  curve.  There  are  two  possible  explanations  for  the  ampli¬ 
tude  differences:  (a)  a  small  portion  of  the  amplitude  difference  could 
be  due  to  using  a  compliance  factor  that  is  too  small  for  the  site 
(1.160  was  used);  and  (b)  the  electronic  output  of  the  gravimeter  is 
nonlinear  relative  to  the  null  position  (McConnell,  Hearty,  and  Winter, 
1974) .  Since  the  position  of  the  tidal  variation  relative  to  the  meter 
null  position  will  vary  because  of  the  superimposed  approximately  2  pGal/ 
hr  drift,  the  gravimeter  tidal  curve  would  require  frequent  nonlinearity 
calibrations  if  used  for  quantitative  tidal  variation  studies.  The 
vertical  scale  of  the  measured  curve  was  generated  about  the  actual  out¬ 
put  position  at  1930  hr  on  18  May.  At  this  time,  drift  has  carried  the 
tidal  variation  curve  to  within  about  120  pGal  of  saturation  of  the 
electronic  output  on  one  side  of  the  null  position.  The  three  events 
superimposed  on  the  tidal  record  on  18  May  in  Figure  21  are  earthquakes 
and  illustrate  an  interesting  application  of  the  microgravimeter  as  a 
long-period  vertical  seismometer.  Monitoring  gravimeter  tidal  variation 
overnight  during  field  surveys  for  the  occurrence  of  large  earthquakes 
will  alert  field  parties  as  to  the  source  of  larger  than  normal  back¬ 
ground  noise,  since  large  earthquakes  will  produce  noise  levels  as  large 
as  100  to  200  pGals  over  a  several  hour  period  (Butler,  1980a). 

Polynomial  Surface-Fitting  for  Regional-Residual  Separation 


53.  A  polynomial  surface-fitting  procedure  for  determining 
regional  fields  is  presented  by  Coons,  Wooland,  and  Hershey  (1967)  for 
large-scale  gravity  surveys.  This  procedure  was  applied  to  the  Manatee 


Comparison  of  theoretical  earth  tide  and  earth  tide  measured  with  Model-D  gravimeter 
at  Vicksburg,  Miss.,  for  three-day  period 


Springs  microgravity  survey  data  in  order  to  determine  its  applicability 
to  small-scale  surveys.  Figure  22  is  a  Bouguer  anomaly  (Butler,  1980a)* 
contour  map  for  the  survey.  The  surface-fitting  procedure  determines 
best-fitting  polynomial  surfaces  of  various  orders  to  the  Bouguer  data. 
The  basic  concept  is  that,  as  successively  higher  order  polynomial  fits 
are  subtracted  from  the  Bouguer  values,  the  residual  anomaly  values 
correspond  to  successively  shallower  structures  (Coons,  Wooland,  and 
Hershey,  1967;  and  Butler,  Whitten,  and  Smith,  in  press).  Figure  23 
shows  first-  through  fourth-order  fits  to  the  Bouguer  anomaly  values. 

The  polynomial  surface  fits  were  generated  by  a  minicomputer  using  a 
general  purpose,  BASIC-language,  polynomial  regression  program.  The 
residual  values  are  a  direct  output  from  the  program. 

54.  Comparing  the  fits  in  Figure  23  to  the  Bouguer  anomaly  map 
in  Figure  21  reveals  that  successively  smaller  scale  features  of  the 
Bouguer  map  are  reflected  by  the  higher  order  fits,  as  expected.  Clear¬ 
ly,  the  second-order  fit  in  Figure  23  reflects  the  effects  of  a  local 
structure;  therefore,  the  first-order  surface  is  selected  as  the  appro¬ 
priate  regional.  Figure  24  is  the  first-order  residual  anomaly  map, 
where  the  approximate  location  of  the  known  cavity  system  is  indicated 
for  comparison.  The  second-order  fit  in  Figure  23  apparently  indicates 
the  primary  gravity  effect  of  the  known  cavity  system;  subtracting  this 
second-order  fit  from  the  Bouguer  anomaly  map  results  in  the  second- 
order  residual  anomaly  map  in  Figure  25.  The  .second-order  residual  map 
primarily  reflects  anomalies  caused  by  features  shallower  than  the  main 
cavity  system;  the  small  anomaly  indicated  by  the  arrow  in  Figure  24 
corresponds  to  a  vertical  solution  pipe  extending  nearly  to  the  surface 
(discovered  when  a  drill  rig  wheel  broke  through  a  surface  soil  bridge). 


*  The  Bouguer  gravity  anomaly  represents  gravity  survey  data  which 

have  been  corrected  for  instrument  drift,  tidal  variation,  latitude  • 

differences  between  survey  stations,  and  elevation  differences 

between  stations  (includes  the  free-air  and  Bouguer  corrections) 

and  between  each  station  and  surrounding  terrain  features  (terrain 

correction) . 
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Figure  23.  First-  through  fourth-order  polynomial  surface  fits  to  the  Bouguer 
gravity  data  (see  Figure  13) ,  contour  interval  =  10  pGal 


Gravity  Interpretation  by  Two-Dimensional 
Polygonal  Cross-Section  Models 


55.  A  common  procedure  for  gravity  interpretation  is  to  postu¬ 
late  a  model  which  is  consistent  with  the  general  features  of  the 
observed  gravity  field,  calculate  the  gravity  anomaly  for  that  model, 
and  compare  it  to  the  observed  gravity  anomaly  field.  If  the  gravity 
field  of  the  model  is  geologically  reasonable,  then  the  model  can  be 
taken  as  a  possible  interpretation  of  the  gravity  anomaly  (Butler,  1980a) 
Many  geologic  structures  can  be  considered  approximately  two-dimensional, 
i.e.,  horizontal  with  constant  cross  section  and  constant  strike,  e.g., 
faults,  block-faulted  basins,  synclines,  anticlines,  buried  river 
valleys,  cavity  systems,  etc.  The  two-dimensional  approximation  is 
generally  adequate  when  the  strike  length  is  greater  than  four  to  six 
times  all  other  dimensions  of  the  structure  including  the  depth. 

Talwani  et  al.  (1959)  developed  an  efficient  algorithm  for  computing 
the  graviational  effect  of  two-dimensional  polygonal  cross  section 
models  using  the  line  integral  method  of  Hubbert  (1948) .  Most  two- 
dimensional  structures  can  be  adequately  approximated  in  cross  section 
by  polygons  with  a  small  number  of  sides  (<10  generally) .  In  the  case 
of  a  horizontal  circular  cylinder  model,  for  example,  which  is  inscribed 
by  a  polygonal  approximation,  the  following  table  lists  the  ratio  of 
the  maximum  value  of  the  polygonal  model  gravitational  effect  (gzM)  to 
the  exact  value  for  the  cylinder  g  _  : 


Number  of  Sides 
of  Model 


gzM/gzE 


56.  The  computer  program  TALGRAD  was  written  to  compute 
gravity  as  well  as  gravity-gradient  profiles  across  arbitrary,  polygonal 
cross-section  models  using  the  Talwani  algorithm.  This  program  has 
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proven  extremely  useful  for  predicting  the  gravity  anomalies  to  be 
expected  from  various  known  or  postulated  structures  as  well  as  for 
interpreting  gravity  data  in  an  iterative  fashion.  Figure  25  is  an 
example  of  the  use  of  TALGRAD  to  compute  the  gravity  anomaly  to  be 
expected  from  the  main  cavity  at  the  Manatee  Springs  site  (using  approxi¬ 
mate  depths  and  cross-section  dimensions  from  cave  diver  reports). 

TALGRAD  as  well  as  further  examples  of  its  use  will  be  discussed  later 
in  this  Part. 

TALGRAD:  A  Computer  Program  for  Computing  Gravity  and  Gravity- 
Gradient  Profiles  Over  Two-Dimensional  Models 

57.  TALGRAD  uses  the  procedure  developed  by  Hubbert  (1948)  and 
Taiwan!  et  al.  (1959)  to  compute  gravity  and  gravity-gradient  profiles 
over  two-dimensional  models.  Actually,  gravity  profiles  are  computed  on 
the  surface  (z  *  0)  and  at  selected  elevations  above  the  surface  (z  = 
-DELZ,  -2  DELZ,  ...,  -SMAX)  at  discrete  profile  points  (separated  by 
DELX) .  The  vertical  and  horizontal  gradients  are  then  calculated  as 
finite  differences  or  interval  gradients.  A  listing  of  TALGRAD  is  given 
in  Appendix  F. 

Input  data 

58.  All  input  is  in  free-field  format  and  the  program  will  call 
for  the  input  variables  by  name.  All  length  dimensions  must  be  consis¬ 
tent;  either  kft  (1000' s  of  ft)  or  m  are  acceptable.  The  density 
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contrast  must  be  in  g/cm  .  Input  data  are  explained  as  follows: 

Input  No.  1:  K,  DELX,  DELZ,  ZMAX 

K — number  of  profile  stations 

DELX — distance  between  stations 

DELZ — vertical  distance  between  elevations  at  which 
gravity  is  computed  at  each  profile  station 

ZMAX — maximum  elevation  at  which  gravity  is  computed 
(ZMAX  is  an  integral  multiple  of  DELZ) 

Input  No.  2:  NPOLY 

NPOLY — number  of  closed  polygons  comprising  the  model 

Input  No.  3: 

Dimensions  in  kft  (enter  1_)  or  metres  (enter  2) 
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Input  No.  4:  DELRO,  N 

DELRO — density  contrast  for  a  polygon 
N — number  of  corners  in  a  polygon 

Input  No.  5:  XI,  Zl,  X2,  Z2,  ....  XN,  ZN 

X,Z — coordinate  pairs  for  polygon  corners,  N-pairs  to 
be  input  in  clockwise  order 

(The  preceding  two  input  sequences.  No.  4  and  5,  will  be  repeated  once 
for  each  polygon.  Also  these  two  input  sequences  are  repeated  for  each 
elevation  in  the  calculation.) 

Input  No .  6 : 

Option  to  calculate  gravity  gradients  (enter  1)  or  not 
(enter  2)  and  program  execution  will  terminate. 

Input  No.  7:  DELXX,  DELZZ 

DELXX,  DELZZ — intervals  to  be  used  for  horizontal  and 
vertical  gradient  calculations  in  incre¬ 
ments  of  DELX  and  DELZ,  respectively 

Input  No.  8:  HZ 

HZ — elevation  for  which  the  horizontal  gradient  profile 
is  desired,  in  increments  of  DELZ  (=0  to  calculate 
profile  on  the  surface  z  =  0) 

Input  No.  9: 

Option  to  recalculate  gradients  for  different  values  of 
DELXX  and  DELZZ — Yes,  enter  1_;  No,  enter  2 

Program  output 

59.  Both  tabular  listings  and  plots  are  produced  by  the  program, 
and  many  of  the  lists  and  plots  are  optional.  The  output  sequence  is 
described  below: 

a.  Following  Inputs  4  and  5  for  each  polygon,  a  listing 
summarizes  all  the  input  data  for  that  polygon. 

_b.  An  optional  listing  of  the  results  of  the  gravity  pro¬ 
file  calculation  is  generated  for  elevation  0. 

£.  An  optional  plot  of  the  gravity  profile  for  elevation  0 
is  produced. 

d..  Optional  listings  and  plots  are  produced  for  each  addi¬ 
tional  elevation  in  the  calculation. 


<s.  A  listing  of  the  vertical  gradient  profile  calculations 
is  generated. 

_f.  A  plot  of  the  vertical  gradient  profile  is  produced. 


A  listing  of  the  horizontal  gradient  profile  calcula¬ 
tions  is  generated. 

h.  A  plot  of  the  horizontal  gradient  profile  is  produced, 
where  the  value  is  plotted  at  the  midpoint  of  the  hori¬ 
zontal  interval  DELXX. 


i- 


k. 


An  optional  gradient  space  plot  is  produced  (i.e.,  g 


versus  g  ) . 

z»z  2 

An  optional  plot  of  the  square  of  the  modulus  (a  (x)) 

2  2 

of  the  analytic  signal  is  produced,  where  a  (x)  =  g 

+  8lx(x>- 

The  entire  sequence  of  output  from  item  £  to  j_  can  be 
repeated  with  different  values  of  DELXX  and  DELZZ,  if 
desired. 


z,x 


z.z 


Examples 

60.  Example  1.  Figure  26  is  an  example  of  the  use  of  TALGRAD  to 
compute  the  gravity  profile  over  a  model  of  the  Manatee  Springs  main 


Figure  26.  Two-dimensional  model  of  the  main  cavity  at  the  Manatee 
Springs  site  and  a  gravity  profile  computed  by  TALGRAD 


U 
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cavity;  a  complete  listing  of  the  input  data  and  output  listings  for  this 
example  is  given  in  Figure  27. 

61.  Example  2.  Fugro  National,  Inc.  (1980)  and  McLamore  and 
Walen  (1979)  report  the  results  of  an  extensive  gravity  survey  in  and 
around  Dry  Lake  Valley,  Nev.,  in  the  Basin  and  Range  Province.  Using 
the  three-dimensional  gravity  inversion  computer  program  of  Cordell 
(1970) ,  the  gravity  data  were  inverted  to  yield  a  three-dimensional  model 
of  the  subsurface.  For  the  inversion,  a  constant  density  contrast  (of 
-0.45  g/cm  )  was  used.  Figure  28  shows  the  residual  gravity  anomaly  map, 
and  Figure  29  shows  depth  to  basement  rock  contours  from  the  three- 
dimensional  inversion.  A  section  view  model  along  profile  AA'  is  given 
in  Figure  30.  Since  block  faulting  is  the  predominant  structural  style 
of  the  area,  the  interpretation  is  reasonable.  As  an  example  of  the  use 
of  TALGRAD,  gravity  and  gravity-gradient  profiles  along  AA'  were  computed 
from  the  model  in  Figure  30.  The  gravity  profile,  the  horizontal  and 
vertical  gravity-gradient  profiles,  a  gradient  space  plot,  and  a  plot  of 
the  square  of  the  modulus  of  the  analytic  signal  are  shown  in  Figures  31- 
34,  respectively.  Selected  data  from  the  three-dimensional  inversion 
results  are  shown  in  Figure  31  for  comparison.  This  example  will  be 
considered  in  greater  detail  later  in  this  Part. 

Determination  of  Vertical  Gravity-Gradient  Profiles 
by  a  Hilbert  Transform  Procedure 

62.  Butler  (1980a,  b)  suggests  a  procedure  by  which  structural 
model  parameters  can  be  determined  by  a  simultaneous  analysis  of  both 
the  vertical  and  horizontal  gravity-gradient  profiles  across  a  structure. 
Except  for  shallow  structures  (<10  to  15  m  depth),  the  use  of  a  short 
tripod  and  "microgal"  gravimeter  to  determine  interval  vertical  gradients 
does  not  appear  practical  due  to  high  levels  of  "gradient  noise"  caused 
by  very  shallow  density  variations.  The  vertical  gradient  profile  can, 
however,  be  calculated  from  the  horizontal  gradient  profile  if  the 
source  of  the  gravity  anomaly  is  approximately  two-dimensional.  This 
relation  is  expressed 
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Figure  27.  TALGRAD  Input/output  for  the  example  in  Figure  25;  user 
input  indicated  by  an  ’■*  sign  (Continued) 
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Input  specifications  for 
producing  the  gravity 
profile  plot  in  Figure  25. 
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Flgure  27.  (Concluded) 


Depth 


MODULUS  OF  ANALVUC  SIGNAL  CX10*«) 


(2) 


\ 

s 

\ 


* 


p 


g 


z,z 


g,  „U) 


z,x 


C  -  x 


dC 


where  x  is  the  profile  point  at  which  the  vertical  gradient  is  to  be 
evaluated,  g  *  is  the  vertical  gradient,  g  *  is  the  horizontal 

Z  |Z  Z  ,  X 

gradient,  and  the  integral  is  to  be  interpreted  in  terms  of  its  Cauchy 
principal  value.** 

63.  The  program  HILBERT  was  written,  using  an  algorithm  suggested 
by  Shuey  (1972),  to  compute  the  discrete  Hilbert  transform  of  a  set  of 
discrete  profile  data.  The  program  as  well  as  examples  of  its  use  will 
be  discussed  later  in  this  Part. 


HILBERT:  A  Computer  Program  for  Computing  the  Discrete 
Hilbert  Transform  of  Profile  Data 


Discrete  Hilbert  transform  algorithm 

64.  The  Hilbert  transform  relation  between  a  continuous  profile 
function  f(x)  and  a  continuous  transformed  profile  function  q(x)  is 


q<*)  - U2L-  de 

-00  B  -  x 

-  fh(x)  =  H(f (x) )  (3) 

Now  let  f(x)  be  a  discrete  set  of  uniformly  spaced  data,  and  approxi¬ 
mate  the  data  by  a  parabola  centered  on  the  singularity  of  the  integrand 


*  g  s  3g  /3z  and  g  =  3g  /3x  ,  where  g  is  the  vertical 

Z  y  Z  Z  Z )  X  z  z 

component  of  the  gravitational  acceleration  (z-axis  downward) 

**  I.e.,  the  integral  is  interpreted  in  the  sense 


lim 

a-+0 


dC 
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S=x  (passing  through  g  and  the  two  adjacent  points)  and  with  a  linear 
fit  to  all  other  pairs  of  points  in  the  profile  data.  Using  this  approxi 
mation  to  the  discrete  set  of  profile  data.  Equation  3  can  be  numerically 
integrated  in  a  straightforward  manner. 

65.  The  diagram  below  defines  the  terminology  for  considering 
the  parabolic  fit  centered  on  the  singularity. 


66.  For  simplicity  in  the  derivation,  a  unit  digitizing  interval 
is  used  and  the  singularity  is  taken  to  be  at  g=0  at  the  iC^  data 
point.  The  parabolic  fit  to  f(g)  is  defined  as  follows: 


f(g)  =  a  +  bg  +  Cg2 


(4) 


f(o)  =  f  =  a 
o 

f(+l)  =f1=a+b+c 
f(-l)  =  f  -  a  -  b  +  c 


(5) 


Equation  5  can  be  solved  for  the  empirical  constants  in  Equation  4  as 
follows 


a  = 
b  = 


c  * 


f 

o 


and  Equation  2  can  be  written 


Equation  6  can  now  be  substituted  into  Equation  3  to  find  the  contri¬ 
bution  to  the  integral  from  the  parabolic  fit  centered  on  the  singularity 


I  /  irn  d6 , 1  I  -  ♦  i  -  *.)  e2  ]+* 


■  T  ‘fi  -  £-i> 


67.  Examining  the  linear  fit  to  the  first  two  data  points  to  the 
right  of  the  singularity,  as  an  example,  yields 


fll  if2 
1  2 
i+1  i+2 


f(x)  =  a  +  bx 


f1  =  a  +  b^ 
f2  “  a  +  bB2 
a  =  fi  -  bgj. 
b  =  (f2  - 


f(6)  «  f, 


*  (H)  “  -  V 


fl62  -  f26l  ,  (t2  -  fl>6 

62  -  8j  82  -  8X 


^(8  -  x)  -  f2^ei  "  ^f2  "  “  x) 


«2  '  B1 


®2  '  81 
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Equation  8  can  be  substituted  into  Equation  2  to  evaluate  the  form  of 
one  of  the  terms  resulting  from  the  successive  linear  fits  to  pairs  of 
data  points: 


If  a  unit  digitizing  interval  is  again  assumed,  8^  ~  6^  =  1. 

68-  The  complete  expression  for  the  numerical  evaluation  of 
Equation  3  for  a  discrete  set  of  profile  data  will  be  the  sum  of  Equa¬ 
tion  7  and  a  series  of  terms  of  the  form  of  Equation  9  for  all  data 
pairs  to  the  right  and  left  of  the  singularity.  Necessarily,  in  practice, 
the  profile  will  be  finite  in  length;  this  will  cause  no  problem  in 
regard  to  the  limits  of  integration  of  Equation  3  if  all  values  of 
f(B)  are  zero  beyond  the  ends  of  the  profile,  which  can  be  simulated 
by  adding  a  zero  to  each  end  of  the  discrete  data  set.  If  the  profile 
is  a  "residual"  profile  which  approaches  zero  at  the  ends  of  the  data 
set,  then  the  simple  procedure  of  dropping  the  profile  to  zero  outside 
the  data  will  present  no  problems.  Otherwise,  a  more  elaborate  extrapo¬ 
lation  to  zero  beyond  the  data  may  be  needed.  If  there  are  N  data 
values  in  the  set,  shift  the  data  one  position  to  the  right  and  add  a 
zero  at  n  =  1  and  n  =  N  +  2  .  Considering  this  revised  data  set, 
the  result  of  summation  of  Equation  7  with  all  the  terms  of  the  form  of 
the  second  term  of  Equation  9  is  the  value  of  —  (f„._  -  f,)  which  is 
identically  zero.  Thus,  remaining  is  a  summation  of  terms  of  the  form 
of  the  first  term  of  Equation  9  involving  data  pairs  to  the  right  and 
left  of  the  singularity  (but  not  including  the  singularity  itself). 

The  result  will  be  called  the  discrete  Hilbert  transform  H  (f(x))  or 

f„(x)  .  The  above  procedure  is  repeated  for  all  profile  positions  x  . 
ri 

Program  input  and  output 

69.  The  computer  code  HILBERT,  listed  in  Appendix  G,  evaluates 
the  discrete  Hilbert  transform  using  the  algorithm  discussed  above. 


Input  to  HILBERT  consists  of  the  number  of  data  values  N  ,  the  actual 

profile  spacing  between  points  DELX,  and  the  profile  values  T  .  Output 

consists  of  a  tabular  listing  of  profile  position  X  ,  profile  data  value 

2  2 

T  ,  discrete  Hilbert  transform  H  ,  the  value  A(=T  +  H  )  ,  and  plots 

of  T  versus  X  ,  H  versus  X  ,  H  versus  T  ,  and  A  versus  X  . 

In  practice,  T  will  generally  be  the  horizontal  gravity  gradient 

(tabular  column  labeled  GX,X  )  and  H  will  be  the  computed  vertical 

gravity  gradient  (tabular  column  labeled  GZ,Z  ). 

Example:  a  test  of  the  discrete 
Hilbert  transform  algorithm 


70.  A  procedure  for  testing  the  proposed  algorithm  for  evaluating 
the  discrete  Hilbert  transform  can  be  formulated  by  examining  the  prop¬ 
erties  of  the  Hilbert  transform.  From  the  definition  of  convolution 
(denoted  by  *) ,  Equation  2  can  be  expressed  as: 


fH<X>  "  <“  *  £(X> 


Applying  the  convolution  theorem  gives: 


F(fH(x))  =  i  sgn(s)  F(f (x) ) 


where  F  denotes  the  Fourier  transform  and  s  is  the  transform  variable. 
Inverting  this  equation  gives 


F(f(x))  = 


-i  sgn(s)  F(fR(x)) 

(— )  *  fu(x) 

TTX  H 


=  -(-  — )  *  f„(x) 
'  TTX  H 


w 

-<¥>  /  £h 


— dB 


f(x)  =  -H(fH(6)) 


Equation  10  suggests  the  following  test  for  the  discrete  Hilbert  trans¬ 
form  algorithm: 


h 


if 


fH  ^  ~  fH^X^  ’ 


then  H°(f°(x))  =  -  fD(x) 


(ID 


where  f  (s)  denotes  the  discrete  profile  data  set.  That  is,  two 
successive  applications  of  the  discrete  Hilbert  transform  to  the  profile 
data  set  should  yield  the  negative  of  the  original  profile  data  set. 

71.  Consider  the  simple  functional  relation: 


f(x)  = 


1  +  x 


which  has  the  analytic  Hilbert  transform  (Erdelyi,  1954) 


(12) 


fH(x)  * 


-x 


1  +  X 


(13) 


Equation  12  is  a  symmetric  function  with  half-width  at  half-maximum 

equal  to  1.0,  maximum  value  equal  to  1.0  at  x  =  0,  and  asymptotes  which 

approach  0  in  both  directions.  As  a  first  test,  the  function  f(x)  is 

sampled  or  discretized  at  increments  Ax  *  1  over  the  range  -10  j<  x  £  10 

and  set  equal  to  zero  outside  this  range.  Figure  35a  contains  the 

tabular  output  resulting  from  inputting  fD(x),  with  f„(x)  being  the 

D“ 

computed  discrete  Hilbert  transform.  In  Figure  35b,  f^  (x)  is 

the  input  data  and  H°(f„(x))  is  the  output  (i.e.,  the  output  represents 

rl  ^ 

two  successive  Hilbert  transform  operations  applied  to  r  (x))  .  Plots 
of  f°(x)  ,  fj^(x)  ’  an(*  ^(^(x))  are  shown  in  Figure  36.  Qualita¬ 
tively,  H^(f^(x))  can  be  recognized  as  the  negative  of  f^(x)  ;  however, 

“  D 

the  maximum  absolute  value  is  0.71  compared  to  1.0  for  f  (x)  ,  the  half¬ 
width  at  half-maximum  is  1.5  compared  to  1.0  for  fD(x)  ,  and  the  two 
ends  of  the  calculated  profile  cross  the  x-axis  while  the  f^(x)  profile 
does  not. 
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Figure  35.  Tabular  output  from  HILBERT  for  test  case  with 
Ax  =  1  and  -  10  <  x  <  10 


72.  To  illustrate  the  effects  of  data  spacing  Ax  and  profile 

length,  several  additional  tests  were  conducted  using  the  same  function 
f(x)  .  Firue  37  shows  plots  of  f°(x)  ,  f„(x)  ,  and  H°(f®(x))  for 

ti  H 

Ax  =  0.5  and  the  same  profile  length  as  in  the  previous  test.  The 

maximum  absolute  value  for  H°(f^(x))  is  now  0.86  compared  to  0.71  for 

**  D 

the  previous  test  case  and  to  1.0  for  f  (x)  .  Also,  the  half-width  at 
half-maximum  is  1.05,  very  close  to  the  value  for  f°(x)  .  The  behavior 
of  the  ends  of  the  H^(f^(x))  profile  is  similar  in  both  test  cases. 

73.  For  another  test  case,  the  data  spacing  is  the  same  as  the 
first  test  Ax  =  1  ,  but  the  profile  length  is  doubled  (-20  x  <_  20)  . 

The  maximum  absolute  value  of  H^(f„(x))  is  0.74  and  half-width  at  half- 

n 

maximum  is  1.45.  The  results  for  this  case  are  shown  in  Figure  38.  The 
primary  effect  of  doubling  the  profile  length  compared  to  the  first 
test  case  is  to  reduce  the  distortion  near  the  ends  of  the  profile  line. 

74.  Significant  features  of  the  above  three  test  cases  as  well 
as  three  additional  ones  are  summarized  in  the  following  tabulation: 
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75.  The  function  f(x)  in  Equation  12  is  a  stringent  test  for 
the  discrete  Hilbert  transform  algorithm,  since  it  is  so  sharply  peaked. 
Sampling  at  Ax  =  1  is  rather  coarse  for  this  particular  f(x)  ,  yet 
even  for  this  case  the  results  of  the  test  (two  successive  applications 
of  the  discrete  Hilbert  transform)  improve  significantly  as  the  profile 
length  is  increased.  Also,  for  a  given  profile  length  such  as  (-5,  5), 
the  test  results  improve  significantly  as  Ax  is  decreased,  although 
the  usual  "law  of  diminishing  returns"  holds.  Of  course,  simultaneously 
decreasing  Ax  and  increasing  the  profile  length  is  the  key  to  improving 
the  results.  The  column  listing  the  value  at  the  ends  of  the  profile 
indicates  the  "errant"  behavior  of  the  ends  of  the  doubly  transformed 
function  due  to  the  manner  in  which  the  profile  is  truncated.  Increasing 
the  profile  length  decreases  the  magnitude  of  this  "errant"  behavior, 
while  decreasing  Ax  increases  it. 
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Manatee  Springs  Microgravimetric  and 
Gravity-Gradient  Surveys 

Scope  of  microgravimetric  and 
gravity-gradient  surveys _ 

76.  The  microgravity  survey  at  the  Manatee  Springs  site  con¬ 
sisted  of  186  stations  over  a  100-  by  400-ft  (^30-  by  122-m)  area  with  a 
basic  grid  interval  of  20  ft  (6.1  m) .  LaCoste  and  Romberg  Model  D-25 
gravity  meter  was  used  for  the  survey.  The  survey  grid  was  oriented 
approximately  perpendicular  to  the  known  trend  of  the  cavity  system,  as 
shown  in  Figure  3.  Grid  point  (0,200)  was  used  as  a  base  station  and 
was  reoccupied  on  an  average  of  once  every  30  min  (see  Figure  19) . 

Details  of  the  microgravity  survey  procedure  can  be  found  in  Butler, 
Whitten,  and  Smith  (in  press).  In  addition  to  the  microgravity  survey, 
a  tower  vertical  gradient  survey  (Butler,  1980a)  was  conducted  along 
the  SW-NE  line  extending  from  (40,0)  to  (40,400);  this  survey  consisted 
of  21  vertical  gradient  stations. 

Residual  gravity  anomaly  map 

77.  Results  of  the  microgravity  survey  and  the  procedures  used  in 
determining  the  residual  gravity  anomaly  values  are  discussed  earlier  in 
this  Part  and  presented  in  Figures  22-25.  The  first-order  residual 
anomaly  map  in  Figure  24  is  selected  as  the  representation  which  reflects 
the  gravity  anomaly  due  to  the  main  Manatee  Springs  cavity.  The  broad 
negative  anomaly  over  the  known  cavity  system  in  Figure  24  is  consistent 
in  magnitude  and  width  with  the  known  size  and  depth  of  the  cavity 
system  (see  Figure  26).  However,  there  are  complexities  or  smaller 
anomalous  features  in  the  residual  map  which  cannot  be  attributed  to  the 
main  cavity;  some  of  these  smaller  anomalies  are  due  to  smaller  and 
shallower  solution  features  or  other  density  anomalies  as  discussed 
previously. 

Vertical  gradient  survey  results 

78.  The  five  tower  measurement  elevations  shown  in  Figure  39  were 
utilized  during  the  vertical  gradient  survey;  because  of  difficulties 

in  obtaining  readings  only  five  gravity  values  at  the  upper  elevation 
h^  were  obtained  along  the  profile  line.  Since  the  measurement  sequence 
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Figure  39.  Illustration  of  the  five  gravity  measurements  and  asso¬ 
ciated  elevations  which  were  utilized  to  determine  interval  vertical 
gradients  along  a  selected  profile  line  at  the  Manatee  Springs  site; 
nominally,  h.^  =  0.6  m,  h ^  -  1.0  m,  h^  «  1.4  m,  h^  =  1.6  m 

at  each  profile  location  required  15  to  25  min,  the  ground  station  hQ 
was  reoccupied  at  the  end  of  each  sequence  and  the  data  were  shift- 
corrected  in  the  usual  manner. 

79.  Considering  elevations  hQ  ,  h^  ,  h^  ,  and  h^  ,  six  interval 
gradients  can  be  determined  as  well  as  differential  gradients  at  any 
point  within  the  interval  hQ  to  h^  using  a  parabolic  fitting  proce¬ 
dure.  Results  of  three  of  the  determinations  of  vertical  gradients  are 
shown  in  Figure  40:  Ag^/Az^  and  AgQ3/AzQ3  ,  where  Ag^  =  gx  -  gQ  , 

Az,,,  =  h,  -  h  ,  and  similarly  for  Ag'  and  Az_.  ;  (3g/9h)  ,  which 

UJ.  1  o  UJ  Uo  O 

is  the  differential  gradient  at  h^  f  determined  from  a  parabolic  fit 

to  the  data  at  h  ,  h,  ,  and  h_  and  evaluated  at  h  .  The  five 
o  1  3  o 

values  of  Ag'  /Azn,  are  also  shown.  All  three  profiles  exhibit 
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considerable  variation,  with  several  gradient  anomalies  as  large  as 
10  percent  of  the  normal  vertical  gradient.  Generally,  the  Ag^/Az^ 
profile  is  smoother  than  the  other  profiles  as  expected,  since  it  should 
be  less  affected  by  very  shallow  density  anomalies.  All  three  profiles 
behave  qualitatively  the  same  except  at  profile  positions  0,  40  to  60, 

200,  and  360  where  the  Ag^  /Az^  profile  behavior  is  clearly  at 
variance  with  the  other  two  profiles.  In  many  locations  the  three 
values  are  nearly  identical;  and  at  the  100-  and  300-ft  profile  positions 
all  four  values  are  nearly  equal  and  also  nearly  equal  to  the  normal 
gravity  gradient;  which  implies  a  linear  variation  of  gravity  with 
elevation  at  these  locations.  There  is,  however,  no  obvious  indication 
of  an  anomaly  which  could  be  caused  by  the  subsurface  cavity  system. 
Horizontal  gradient  determinations 

80.  Using  the  gravity  data  along  the  selected  profile  line,  inter¬ 
val  horizontal  gradient  profiles  can  be  determined  using  various  values 
of  Ax  .  Clearly,  for  cases  where  there  is  no  regional  gradient  along 
the  profile  line,  or  where  the  regional  gradient  is  linear  in  the  pro¬ 
file  direction,  the  results  will  be  identical  whether  the  Bouguer  anomaly 
or  the  residual  anomaly  values  are  used  to  compute  horizontal  gradient. 
When  the  above  conditions  do  not  hold,  there  will  be  a  regional  component 
present  in  the  gradient  profile.  In  the  present  case,  it  is  preferable 
to  use  residual  gravity  values.  Horizontal  gradient  profiles  for  Ax 
equal  to  20,  40,  and  80  ft  (6.1,  12.2,  and  24.4  m)  are  shown  in  Figure  41, 
where  the  residual  gravity  values  from  Figure  23  were  used.  The  profiles 
in  Figure  41  clearly  become  smoother  with  increasing  Ax  .  Importantly, 
all  three  profiles  show  "average  behavior"  consistent  with  the  known 
cavity  system  with  center  at  profile  position  200  ft.  The  Ax  =  20-ft 
profile,  however,  is  so  erratic  that  the  "cavity  gradient  signature"  is 
effectively  masked.  The  gradient  "signature"  of  the  cavity  is  enhanced 
by  Ax  values  which  are  larger  than  the  effective  depths  of  the  shallow 
anomalous  features  causing  the  erratic  behavior  of  the  Ax  =  20-ft 
profile.  Accordingly,  the  Ax  =  80-ft  profile  data  will  be  used  for  the 
considerations  which  follow. 


Comparison  of  results  with  two- 
dimensional  model  calculations 

81.  The  cavity  system  was  modeled  as  a  two-dimensional,  hori¬ 
zontal  cylinder  with  rectangular  cross  section  as  shown  in  Figure  26, 

and  TALGRAD  was  used  to  compute  horizontal  and  vertical  gravity  gradients. 
In  Figure  42,  the  computed  horizontal  gradient  profile  is  compared  with 
the  measured  horizontal  gradient  profile  for  Ax  =  80  ft.  The  average 
behavior  of  the  measured  profile  approximates  the  calculated  profile 
quite  well  in  amplitude  and  spatial  wavelength,  with  the  amplitude  of 
the  measured  profile  slightly  larger  on  the  right-hand  side.  HILBERT 
was  used  to  compute  a  vertical  gradient  profile  from  the  measured  hori¬ 
zontal  gradient  profile  for  Ax  =  80  ft  .  This  profile,  computed  by 
the  Hilbert  transform  procedure,  is  compared  in  Figure  43  to  the  vertical 
gradient  profile  computed  from  the  two-dimensional  model.  Again,  the 
agreement  between  the  two  profiles  in  Figure  43  is  good  with  respect  to 
amplitude  and  spatial  wavelength;  however,  the  Hilbert  transform  profile 
has  maximum  amplitude  at  position  240  ft  rather  than  200  ft  and  has  a 
prominent  positive  peak  at  320  ft. 

82.  Gradient  space  plots  prepared  from  the  profiles  in 
Figures  42  and  43  are  shown  in  Figure  44  for  the  two-dimensional  model 
and  for  data  derived  from  the  field  measurements.  The  somewhat  subtle 
differences  noted  in  the  profile  data  plots  are  more  apparent  in  the 
gradient  space  plot;  to  profile  position  200  ft  (lower  half  of  plots 
in  Figure  44),  the  agreement  between  the  two  plots  is  good,  but  from 
profile  positions  200  to  400  ft  (upper  half  of  plots  in  Figure  44),  the 
two  plots  differ  significantly  in  magnitude.  The  results  in  Figure  44 
suggest  that  the  simple  two-dimensional  model  which  was  selected  may  not 
approximate  the  cavity  system  very  well.  Indeed,  reports  of  both  a 
cave  diving  team  and  a  very  limited  verification  drilling  effort  confirm 
that  the  cavity  system  is  extremely  complex.  The  cavity  varies  errat¬ 
ically  in  cross-«ec t i onal  shape  and  size;  a  vaulted  ceiling  is  common 
and  numerous  smaller  branching  cavities  are  present.  Also,  drilling 
indicates  more  extensive  solutioning  to  the  northeast  of  the  (0,200)  to 
(100,200)  line  than  southwest  of  it,  which  is  consistent  with  both  the 
residual  gravity  map  and  the  gravity-gradient  results. 
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Figure  41.  Interval  horizontal  gradient  profiles  for  three  values 
of  Ax  along  the  (40,0)  to  (40,400)  profile  line  at  the  Manatee 

Springs  site 


Figure  42.  Comparison  of  measured  and  calculated  (using  TALGRAD)  • 

interval  horizontal  gradients  along  the  (40,0)  to  (40,400)  pro¬ 
file  line  at  the  Manatee  Springs  site 
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Figure  43.  Comparison  of  vertical  gradient  profiles,  determined  from 
two-dimensional  model  calculations  using  TALGRAD  and  from  the  Hilbert 
transform  of  the  measured  horizontal  gradient  profile  using  HILBERT 
for  the  (40,0)  to  (40,400)  profile  line  at  the  Manatee  Springs  site 
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Figure  44.  Gradient  space  plots  for  gradient  data  along  the  (40,0) 
to  (40,400)  profile  line  at  the  Manatee  Springs  site 


Verification  drilling  results 

83.  Because  of  time  and  fiscal  constraints,  only  a  very  limited 
number  of  verification  borings  was  possible  at  the  Manatee  Springs  site. 
Unfortunately,  the  six  verification  borings  were  located  to  investigate 
various  gravity  anomalies  as  well  as  anomalies  indicated  by  other  geo¬ 
physical  surveys  and  not  specifically  to  investigate  anomalies  along  the 
gravity-gradient  profile  line.  Likewise,  most  of  the  six  borings  placed 
to  accommodate  crosshole  surveys  of  various  types  were  placed  to  the 
northeast  of  the  gradient  profile  line.  Two  borings,  however,  allow 
direct  confirmation  of  vertical  gradient  anomalies  shown  in  Figure  40. 
Overall  the  borings  indicate  that  typically  limestone  is  encountered  at 
depths  of  13  to  17  ft  (4  to  5.2  m) ,  although  limestone  pinnacles  rise  to 
within  5  ft  (1.5  m)  of  the  surface  in  placed  and  clay-filled  pockets  in 
the  top  of  the  limestone  extend  to  depths  of  27  ft  (8.2  m)  in  places.  A 
boring  near  gradient  profile  position  120  ft  encountered  a  clay  pocket 
which  extended  to  27-ft  depth  (limestone  typically  is  encountered  at 
17-ft  depth  in  this  area);  the  vertical  gradient  profiles  show  a  promi¬ 
nent  negative  anomaly  at  this  location.  Another  boring  near  gradient 
profile  position  280  ft  encountered  a  clay  pocket  extending  to  16-ft 
depth  (limestone  typically  is  encountered  at  13-ft  depth  in  this  area); 
the  vertical  gradient  profiles  show  a  negative  anomaly  at  this  location. 

84.  The  boring  near  gradient  profile  position  280  ft  encountered 
a  significant  clay-filled  cavity  in  the  90-  to  105-ft  (27-  to  32-m) 
depth  range;  this  is  the  same  depth  range  as  the  known  water-filled 
cavity  to  the  southwest.  The  discovery  of  this  clay-filled  cavity  feature 
suggests  that  solution  features  extend  considerably  northeast  of  the 
known  cavity  system  under  the  gradient  profile  line,  which  is  completely 
consistent  with  the  gradient  profile  data  in  Figures  42-44. 

Conclusions 

85.  The  results  of  drilling  at  the  Manatee  Springs  site  confirm 
that  the  larger  magnitude,  short  spatial  wavelength  anomalies  which 
appear  in  the  measured  vertical  gradient  profiles  in  Figure  40  are  due 
primarily  to  relatively  shallow  (<20  ft  or  6  m)  density  anomalies  such 


as  clay  pockets  and  limestone  pinnacles.  The  lower  amplitude,  longer 


spatial  wavelength  anomalies  which  appear  in  the  measured  horizontal 
gradient  and  Hilbert  transform  vertical  gradient  profiles  in  Figures  42 
and  43  are  due  to  the  deeper  (>80  ft  or  24  m)  main  cavity  system.  The 
large  amplitudes  of  the  vertical  gradients  caused  by  shallow  feature 
at  the  Manatee  Springs  site  completely  mask  any  possible  expression  in 
the  measured  vertical  gradient  profile  of  the  low  amplitude  anomaly  due 
to  the  deeper  cavity  system,  at  least  in  vertical  gradient  profiles 
determined  with  a  short,  portable  tripod.  A  much  taller  tower  (>20  ft 
or  6  m  in  height)  with  lower  measurement  station  several  feet  (1  to  2  m) 
above  the  ground  would  be  required  to  have  any  chance  of  detecting  the 
vertical  gradient  anomaly  caused  by  the  cavity  system;  even  then,  it  is 
unlikely  that  a  0.001  mGal/m  gradient  anomaly  could  ever  be  detected  by 
a  tower  (interval)  measurement  procedure. 

Gravity-Gradient  Analysis  of  a  Selected  Gravity 
Profile  Across  Dry  Lake  Valley,  Nev. 


Concepts 

86.  One  of  the  important  and  powerful  aspects  of  the  gravity- 
gradient  analysis  and  interpretation  procedures  (Butler,  1980a,  b,  c) 
is  that  they  can  be  applied  to  existing  good  quality  gravity  data  at  any 
scale.  Gravity  profiles  can  be  digitized;  and  using  the  basic  digitizing 
interval  as  a  starting  point,  horizontal  gradient  profiles  can  be  com¬ 
puted  for  various  multiples  of  the  basic  interval.  The  Hilbert  transform 
procedure  is  used  to  compute  vertical  gradient  profiles,  and  then  the 
gradient  space  plot  and  modulus  of  the  analytic  signal  plot  can  be  con¬ 
structed.  Implicit  in  the  procedure  just  described  is  that  the  struc¬ 
tural  aspects  of  the  problem  being  analyzed  are  two-dimensional.  If  a 
gravity  contour  map  is  used  as  a  starting  point,  gravity  profiles  should 
be  selected  across  and  approximately  perpendicular  to  the  trend  of  anom¬ 
alies  which  in  some  sense  can  be  considered  to  be  caused  by  a  two- 
dimensional  structure.  If  the  starting  point  is  a  gravity  profile,  it 
should  cross  a  known  structure  which  can  be  considered  approximately 
two-dimensional  in  nature,  striking  nearly  perpendicular  to  the  profile 
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line.  An  example  of  the  first  of  these  cases  is  presented  here,  i.e., 
a  gravity  profile  is  selected  perpendicular  to  the  major  trend  of  an 

elongated  gravity  anomaly  associated  with  an  alluvial  basin  in  the  '  t 

Basin  and  Range  Province. 

Background 

87.  The  Dry  Lake  Valley  gravity  survey  is  briefly  discussed 

earlier  in  this  Part  as  an  example  of  the  use  of  TALGRAD.  • 

88.  Dry  Lake  Valley  is  located  in  central  Lincoln  County,  Nev. , 
approximately  170  km  north-northeast  of  Las  Vegas.  The  gravity  survey, 
consisting  of  1069  stations  in  and  around  Dry  Lake  Valley,  was  conducted 

by  the  Defense  Mapping  Agency  (DMA)  in  the  summer  of  1977.  Correction  • 

of  the  gravity  data  was  performed  by  DMA  and  Fugro  National,  Inc.  person¬ 
nel  to  produce  a  Bouguer  anomaly  map.  The  regional  field  was  derived  by 
fitting  a  second-order  polynomial  surface  to  Bouguer  anomaly  values  on 
bedrock  outcrop  stations  around  the  valley.  Subtracting  the  derived  ■  £ 

regional  field  from  the  Bouguer  anomaly  map  yielded  the  residual  anomaly 
map  shown  in  Figure  28.  Complete  details  of  the  site,  gravity  survey, 
and  data  correction  procedures  are  given  in  Fugro  National,  Inc.  (1980) 
and  McLamore  and  Walen  (1979) .  '  • 

89.  Dry  Lake  Valley  exhibits  typical  basin  and  range  structure, 

with  the  valley  probably  occurring  above  a  graben  between  two  high  angle 
normal  basement  faults  on  the  east  and  west  sides  of  the  valley.  Out¬ 
crops  in  the  mountains  on  the  western  side  of  the  valley  are  predomi-  f 

nantly  Tertiary  ash  flow  tuffs  with  some  Paleozoic  carbonates;  while  the 

mountains  on  the  eastern  side  are  predominantly  the  Paleozoic  carbonates 

with  only  minor  amounts  of  the  Tertiary  tuffs.  The  valley  fill  consists 

of  unconsolidated  to  partially  consolidated  silt,  sand,  and  gravel  • 

derived  from  adjacent  highlands.  Primarily  the  fill  materials  are 

Tertiary  and  early  Quaternary  alluvial  fan  deposits  (72  percent  by  area) 

and  fluvial  and  stream  terrace  deposits  (16  percent). 

90.  The  three-dimensional  model  and  interpretation  discussed  • 

previously  and  shown  in  Figure  29  were  constrained  by  (a)  results  of 

two  long  intersecting  refraction  lines  in  the  north  end  of  the  valley, 

(b)  several  shallow  (<500  ft  or  150  m)  boreholes  throughout  the  central 
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portion  of  the  valley,  and  (c)  a  knowledge  of  the  structural  style  of 

3 

the  region.  A  density  contrast  of  -0.45  g/cm  (between  alluvium  and 
carbonate  bedrock)  was  determined  by  trial  and  error  gravity  interpre¬ 
tation  to  yield  the  best  "tie"  of  the  refraction  results.  This  density 
contrast  agrees  with  published  density  values  for  bedrock  and  alluvium 
materials  in  the  area  (McLamore  and  Walen,  1979).  An  interesting  feature 
of  the  interpretation  shown  in  Figure  29  is  that  the  placement  of  the 
faults  was  determined  from  an  examination  of  the  second  vertical  deriva¬ 
tive  of  the  gravity  field;  i.e.,  the  faults  are  placed  along  the  zero 
contour  of  the  second  derivative  field.  This  procedure  places  the 
surface  trace  of  the  eastern  boundary  fault  about  1  mile  west  of  the 
surface  cracks  in  the  alluvium,  which  have  been  mapped  as  a  fault. 
Gradient  interpretation 

91.  Profile  AA'  in  Figure  29  was  chosen  for  gradient  analysis 
and  is  plotted  in  Figure  45.*  The  gravity  profile  was  digitized  at  1-kra 
intervals  and  horizontal  gravity  gradients  were  calculated  for  Ax  =  1, 
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Figure  45.  Bouguer  anomaly  (CBA) ,  regional  field,  and  residual  anomaly 

for  Profile  AA'  (see  Figure  28) 


2,  3,  and  5  km.  HILBERT  was  used  to  calculate  vertical  gradients  from 
each  of  the  horizontal  gradient  profiles,  and  the  gradient  profiles  for 
the  four  cases  are  shown  in  Figure  46.  The  gradient  profiles  clearly 
become  smoother  and  exhibit  fewer  "complexities"  as  Ax  increases  due 
to  the  filtering  properties  of  the  interval  measurement  procedure;  and 
the  gradient  profiles  for  Ax  =  5  ra  closely  resemble  those  for  a 


*  A  much  larger  version  of  this  gravity  profile  was  used  for  digitization. 


Measured  horizontal  gradient  profiles  for  four  values  of  Ax  and  associated  computed 
vertical  gradient  profiles  along  AA'  (see  Figure  28) 


horizontal  cylinder  (the  simplest  two-dimensional  structure) .  The 
gradient  profiles  for  Ax  =  1  km  ,  however,  exhibit  features,  in  the 
central  portion,  which  closely  resemble  the  profiles  for  a  grabenlike 
structure.  Gradient-space  plots  for  the  Ax  =  1  and  5  km  cases  are 
given  in  Figure  47,  which  further  illustrates  the  qualitative  features 
discussed  above  (Butler,  1980  a,  b,  c) . 

92.  For  purposes  of  gradient  interpretation,  the  gradient  pro¬ 
files  and  gradient-space  plot  for  Ax  =  1  km  will  be  utilized.* 

Figure  48  is  a  larger  scale  plot  of  the  gradient  profiles  for  Ax  =  1  km 
It  is  evident  from  an  examination  of  Figures  47a  and  48  that  the  struc¬ 
ture  causing  the  gradient  anomalies  is  more  complex  than  a  grabenlike 
structure  with  nearly  equal  side  slopes  and  a  horizontal  "floor." 

Because  of  the  complexities  evident  in  the  gradient-space  plot,  the  inter 
pretation  procedure  will  rely  on  an  alternative  procedure  in  which 

(a)  the  vertical  gradient  profile  is  used  to  locate  profile  positions 
of  structural  corners,  and  (b)  the  gradient-space  plot  is  used  to  deter¬ 
mine  slope  angles  of  the  graben  bounding-faults  and  their  projected 
surface  intersection  points.** 

93.  Six  points  are  labeled  in  Figure  48,  with  points  E,  F,  G, 
and  H  assumed  to  be  associated  with  the  central  graben  structure. 

Points  D  and  I  are  located  at  profile  positions  corresponding  exactly 
to  locations  of  vertical  gradient  peaks,  while  points  E,  F,  G,  and  H 
are  shifted  by  Ax/2  relative  to  the  associated  vertical  gradient  peaks 


*  The  result  of  using  the  profiles  for  Ax  =  2  km  for  the  interprv 
tation  would  be  nearly  identical  to  that  presented  for  the  Ax  *  1  km 
case.  The  interpretation  resulting  from  using  the  Ax  =  3  or  5  km 
profiles  would  be  different,  since  the  gradient  features  due  to  shallow 
structures  cannot  be  recognized. 

**  For  the  ideal  case  of  a  nearly  symmetric,  graben  structure  model, 
generally  all  of  the  parameters  of  the  model  can  be  obtained  from  an 
analysis  of  the  gradient-space  plot  alone,  including  profile  locations 
and  depths  of  the  four  corners  of  the  model.  The  gradient-space  plot 
will  be  the  superposition  of  two  ellipses,  and  the  inclination  of  the 
long  axes  of  the  ellipses  to  the  horizontal  axis  (vertical  gradient 
axis)  defines  directly  the  slope  angles  of  the  sides  of  the  graben 
model  relative  to  the  horizontal. 
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Figure  48.  Gravity-gradient  profiles  along  AA'  (see  Figure  28) 

for  Ax  =  1  km 

to  qualitatively  compensate  for  gradient  profile  "broadening"  due  to 
sampling  and  superposition  effects. 

94.  Angles  of  -48°  and  68°,  relative  to  clockwise  rotations  from 

the  g  axis,  are  defined  in  Figure  47a  for  the  lower  and  upper  ellip- 
Z  |  z 

ses,  respectively.  Also,  points  labeled  C'  and  CC'  and  corresponding 
profile  locations  are  shown  for  the  lower  and  upper  ellipses,  respec¬ 
tively;  these  points  are  assumed  to  be  the  surface  projection  of  the 
side  faces  of  the  graben  structure.  The  slope  angle  and  C'  for  the 
upper  ellipse  are  fairly  well  defined.  However,  the  slope  angle  and  C' 
for  the  lower  ellipse  are  not  as  well  defined;  there  is  clearly  subjec¬ 
tive  judgment  involved  in  the  definition  of  C '  . 

95.  By  use  of  the  parameters  defined  in  Figures  47a  and  48,  the 
structural  geometry  shown  Ln  Figure  49a  can  be  constructed.  Points  D 
and  I  are  assumed  to  he  at  or  very  near  the  surface  and  connected  to 
points  E  and  H,  respectively,  by  straight  lines.  Maximum  depth  to  rock 
of  ^5.4  km  is  predicted  at  point  G.  The  structural  model  of  the  valley 
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Figure  49.  Structural  models  deduced  from  Dry  Lake  Valley  gravity 
profile  AA'  using  two  different  interpretive  methods 

fill-bedrock  geometry  is  deduced  directly  from  the  gradient  data  with 

no  assumptions  regarding  density  contrasts. 

Comparison  of  gradient  and  three- 
dimensional  gravity  interpretation 

96.  The  results  of  the  three-dimensional  gravity  inversion  along 
profile  line  AA'  are  shown  in  Figure  49b  (also  in  Figure  30).  Qualitative¬ 
ly,  the  two  interpretations  shown  in  Figure  49  are  very  similar,  and  the 
slope  angles  of  sides  EF  and  GH  in  Figure  49a  and  their  counterparts  in 
Figure  49b  differ  by  1  and  5  deg,  respectively.  The  primary  quantitative 
difference  is  the  rather  dramatically  larger  predicted  depth  to  the 
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carbonate  bedrock  predicted  by  the  gradient  model.  Profile  locations 
of  points  D  and  I  are  approximately  the  same  in  both  models;  however, 
profile  locations  of  points  E,  F,  G,  and  H  in  the  two  models  differ  by 
amounts  varying  from  0.5  to  1.5  km. 

97.  Although  several  explanations  might  be  advanced  to  explain 
the  discrepancies  between  the  two  models  in  Figure  49,  only  two  will  be 
presented  and  discussed:  (a)  possible  etrors  in  the  locations  of 
points  E,  F,  G,  and  H  in  the  gradient  model,  and  (b)  errors  in  depth  in 
three-dimensional  gravity  model  due  to  selection  of  density  contrast. 

Small  errors  in  location  and  hence  spacing  of  the  points  E,  F,  G,  and 

H  could  produce  significant  errors  in  depths  to  the  corners  of  the 
structural  model,  due  to  the  relatively  steep  slopes  of  the  sides  of  the 
graben  structure.  If  the  model  shown  in  Figure  49b,  from  the  three- 
dimensional  gravity  inversion,  is  correct,  then  using  the  depths  to  the 
corners  E  and  H  as  a  measure  of  the  parameter  Co  >  the  "depth"  to  the 
model,  results  in  &x/^0  ^  2  (Ax  =  1  km,  'v  0.5  km).  From  previous 
considerations  (Butler,  1980a,  b,  c) ,  it  is  known  that  amplitude  attenua¬ 
tion  and  increase  in  spatial  wavelength  of  the  horizontal  gradient  profile 
become  significant  for  Ax/Co  =  1  and  become  very  pronounced  for 
Ax/ i,o  =  2  .  These  distortions  of  the  horizontal  gradient  profile  due  to 
the  sampling  process  will  be  reflected  in  the  vertical  gradient  profile 
(computed  with  HILBERT)  by  increased  separation  and  broadening  of  the 
peaks  (relative  maxima)  corresponding  to  corners  E  and  H,  leading  to 
values  for  the  distances  EF  and  GH  which  are  too  large.  It  is  note¬ 
worthy,  however,  that  the  locations  of  corner  H  and  its  surface  projec¬ 
tion  C"  for  the  gradient  model  in  Figure  49a  are  more  consistent  with 
surface  cracks  in  the  alluvium  than  the  corresponding  locations  in 
Figure  49b. 

98.  An  equally  plausible  explanation  for  the  differences  in  the 
two  models  in  Figure  49  is  that  the  predicted  depths  in  Figure  49b  are 

too  small  due  to  the  use  of  a  density  contrast  which  was  too  large 

3 

(Butler,  1980a).  The  density  contrast  of  -0.45  g/cm  used  for  the  three- 
dimensional  gravity  inversion  corresponds  to  the  density  contrast  for 
shallow  sediments  relative  to  basement  rocks.  Since  the  sediment  density 
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will  increase  with  depth,  -0.45  g/cm  must  be  viewed  as  a  maximum 
density  contrast  (Fugro  National,  Inc.,  1980).  Thus,  the  depths  calcu¬ 
lated  from  the  three-dimensional  inversion  are  likely  too  small,  parti¬ 
cularly  for  the  base  of  the  graben.  Additional  modeling  with  different 
density  contrasts  or  a  density  contrast  function  that  decreases  with 
depth  was  not  considered  to  be  justified  by  Fugro  because  so  little  is 
known  about  the  actual  density  distribution  in  and  around  the  valley. 
Without  further  information,  such  as  a  deep  boring  in  the  center  of  the 
valley  or  a  long  refraction  line  in  the  center  of  the  valley,  it  is  not 
possible  to  resolve  the  discrepancy  between  the  two  models  in  Figure  49. 
Density  contrast  considerations  seem  clearly  to  favor  a  valley  model  with 
greater  depth  than  in  Figure  49b.  Since  the  model  in  Figure  49a, 
deduced  by  gravity-gradient  techniques,  was  produced  without  assumptions 
regarding  density  contrast,  it  seems  to  be  the  preferred  model.  The 
best  constant  density  contrast  for  the  valley,  corresponding  to  the 
gradient  model  in  Figure  49a,  could  not  be  determined  by  using  TALGRAD 
in  an  iterative  fashion,  varying  only  the  density  contrast  until  the 
calculated  and  measured  gravity  profiles  agree.  This  example  is  pre¬ 
sented  in  considerable  detail  to  illustrate  the  manner  in  which  some  of 
the  analytic  techniques  developed  in  this  research  effort  can  be  utilized 
to  analyze  field  data  to  determine  geologic  structure  and  geophysical 
properties. 


PART  IV:  SEISMIC  METHODS 

Background 

99.  The  seismic  methods  all  involve  the  generation,  propagation, 
and  detection  of  seismic  waves.  Seismic  waves  are  generated  in  three 
ways  in  surveys  for  geotechnical  applications:  impact  sources,  e.g., 
weight  drop  or  hammer  blow;  explosive  sources,  e.g.,  dynamite,  exploding 
bridgewire  (EBW)  detonators,  and  air  guns*;  and  vibratory  sources 
(constant  frequency  or  swept  frequency  sources) .  Detection  of  the  seis¬ 
mic  waves  is  generally  by  velocity  transducers  called  geophones.  The 
objective  of  the  seismic  methods  is  to  deduce  properties  of  the  media 
through  which  the  seismic  waves  pass  from  properties  of  the  detected 
wave  forms  (primarily  the  arrival  times  of  various  events  or  types  of 
waves  at  the  geophones).  Two  seismic  methods  are  considered  here:  the 
seismic  refraction  method  and  the  crosshole  seismic  method. 

Seismic  refraction  method 

100.  The  seismic  refraction  method  is  a  surface  survey  technique 
in  which  the  source  locations  and  geophones  are  along  a  common  line. 
Figure  50  illustrates  the  concept  of  the  seismic  refraction  method,  where 
the  time-distance  plot  represents  the  arrival  times  of  the  first  event 

at  each  geophone  location.  The  first  event  at  a  given  geophone  will  be 
due  to  a  wave  which  propagates  directly  from  the  source  or  to  a  wave 
which  is  refracted  along  an  interface  with  a  higher  velocity  material. 

The  first-arrival  time-distance  plot  can  be  analyzed  to  give  the  velo¬ 
cities  of  subsurface  soil/rock  layers  and  depths  to  interfaces;  Figure  50 
illustrates  the  analysis  for  the  simple  case  of  two  horizontal  layers 
(Department  of  the  Army,  1979). 

101.  For  the  case  of  three  horizontal  layers,  the  analysis  of 
the  time-distance  plot  to  yield  layer  velocities  and  interface  depths  is 
still  tractable  by  manual  methods.  Also,  the  case  of  two  layers  where 
the  interface  dips  relative  to  the  surface  can  be  similarly  analyzed 


*  Air  guns  generate  seismic  waves  by  a  sudden  release  of  compressed  gas. 
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Figure  50.  Simple  two- layer  case  with  plane,  parallel  boundaries,  and 
corresponding  time-distance  curve  (after  Redpath,  1973) 
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using  manual  methods  (Department  of  the  Army,  1979;  and  Telford  et  al. , 
1976).  However,  for  the  cases  of  greater  than  three  horizontal  layers 
and  greater  than  two  dipping  layers,  a  programmable  calculator  or  a 
minicomputer  is  desirable  for  the  interpretation.  The  presence  of  dipping 
layers  is  indicated  by  an  examination  of  the  time-distance  plots  from 
forward  and  reverse  "shooting"  along  a  seismic  survey  line,  i.e.,  from 
data  obtained  by  using  a  source  at  each  end  of  the  geophone  line. 

Figure  51  illustrates  the  appearance  of  the  time-distance  plot  for  a  two- 
layer  case  with  dipping  interface,  where  the  apparent  velocity  of  the 
second  layer  is  always  greater  when  "shooting"  in  the  updip  direction. 

102.  In  the  past,  seismic  refraction  data  processing  has  involved 
manual  "picking"  of  first-arrival  events  and  scaling  arrival  times,  often 
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V  =  dip  angle 

Figure  51.  Example  of  dipping  interface  and  concepts  of  "reverse 
shooting"  and  "apparent  velocity"  (after  Redpath,  1973) 

using  a  variable  scale,  from  analog  records.  The  time-distance  data 
were  then  manually  plotted,  and  straightline  segments  were  fit  to  the 
data  if  possible.  Velocities  were  then  determined  as  the  inverse  of  the 
slopes  of  the  line  segments.  Interface  depths  and  dips  were  then  deter¬ 
mined  manually.  This  is  still  a  common  procedure,  particularly  when 
refraction  survey  data  are  processed  and  interpreted  in  the  field. 

103.  Magnetic  tape  (analog)  data  recording  has  been  used  since 
the  early  1950's  and  digital  tape  data  recording  since  the  early  1960's 
in  seismic  exploration  for  the  oil  industry.  Associated  with  the  digital 
seismic  recording  capability  has  been  a  rapid  growth  in  digital  data 
processing  technology.  This  new  technology  makes  possible  the  expedi¬ 
tious  handling  of  enormous  amounts  of  seismic  data  and  reduces  complex 
mathematical  filtering  operations  to  simple  multiplications  and  addi¬ 
tions  of  the  digital  data.  Although  many  of  the  digital  techniques 
which  have  been  developed  are  applicable  to  any  set  of  time  series 


data,  the  primary  application  has  been  to  seismic  reflection  survey 
data.  Also,  equipment  cost,  physical  size,  and  complexity  of  operation 
have  prevented  application  of  digital  recording  and  processing  technology 
to  seismic  refraction  surveys  for  geotechnical  applications.  However, 
since  the  mid-1970's,  small,  relatively  inexpensive  digital  seismic 
recording  systems  and  powerful  micro/minicomputers  have  been  developed 
which  can  be  utilized  by  groups  involved  in  geotechnical  applications  of 
seismic  methods. 

104.  This  Part  documents  techniques  developed  to  expedite  seis¬ 
mic  refraction  data  processing  and  to  aid  interpretation  of  seismic 
refraction  results  using  minicomputers  and  time-sharing  computer  systems. 
While  the  data  processing  techniques  which  are  described  here  must  be 
considered  an  intermediate  step  in  that  analog  field  records  are  still 
utilized,  the  procedure  has  considerably  reduced  the  manual  effort 
involved  in  processing  refraction  survey  data  and  helps  prevent  the 
data  processing  "bottleneck"  which  generally  follows  large  field  seismic 
investigations . 

Crosshole  seismic  method 

105.  The  crosshole  seismic  method  utilizes  seismic  wave  propaga¬ 
tion  between  two  or  more  boreholes  to  determine  the  seismic  stratigraphy, 
i.e.,  the  seismic  velocities  of  subsurface  materials  and  the  locations 
of  interfaces  between  materials  with  different  velocities  in  site 
investigation  programs.  This  method  is  used  extensively  in  foundation 
investigations  where  both  compression  (P)  and  shear  (S)  wave  velocities 
are  required  as  input  to  dynamic  analyses.  Field  procedures,  equipment, 
and  interpretation  procedures  for  crosshole  seismic  testing  are  described 
in  Department  of  the  Army  (1979),  Butler  and  Curro  (1981),  and  Butler, 
Skoglund,  and  Landers  (1978). 

106.  Figure  52  (Butler  and  Curro,  1981)  illustrates  the  geometry 
and  concept  of  a  crosshole  seismic  test.  A  seismic  source  and  receiver 
are  shown  at  the  same  depth  in  a  pair  of  boreholes.  The  seismic  source 
can  be  selected  to  preferentially  generate  vertically  (horizontally) 
polarized  S-wave  energy  if  desired,  and  vertical-axis  (horizontal-axis) 
receivers  (perhaps  in  a  triaxial  geophone  array)  may  be  used  to  enhance 
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Figure  52.  Crosshole  seismic  test  geometry  and  possible 

propagation  paths 


S-wave  detection.  Explosive  sources  are  rich  in  P-wave  energy,  and 
triaxial  geophone  arrays  or  even  hydrophones  (in  fluid-filled  boreholes) 
can  be  used  as  receivers  for  P-wave  detection.  Figure  52  indicates 
several  layers  with  different  seismic  velocities  ( V )  and  thicknesses; 
the  problem  in  crosshole  seismic  interpretation  is  to  deduce  this 
seismic  stratigraphy  from  a  data  set  which  includes  source/receiver 
depths  and  arrival  times  of  events.  Generally  only  the  first-arrival 
times  of  P-  or  S-events  are  considered.  The  first  P-  or  S-arrival  at  a 
given  depth  Z  may  be  due  to  any  one  of  the  possible  paths  shown  in 
Figure  52.  The  first-arrival  event  will  be  determined  by  the  borehole 
separation  D  ,  and  the  magnitudes  of  the  velocities.  Dividing  D  by 


the  first-arrival  time  gives  an  apparent  velocity  which  may  not  be 
equal  to  any  of  the  layer  velocities. 

107.  Butler  and  Cutto  (1981)  discuss  some  of  the  procedures  and 
pitfalls  involved  in  crosshole  seismic  interpretation,  and  Butler,  Skog- 
lund,  and  Landers  (1978)  present  an  algorithm  and  document  a  computer 
program  (CROSSHOLE)  for  interpretation  of  crosshole  seismic  data.  The 
program  CROSSHOLE  has  been  used  extensively  for  the  interpretation  of 
crosshole  seismic  surveys.  The  program  in  its  original  form  was  somewhat 
cumbersome  to  use.  Since  it  was  written  to  be  executed  in  a  batch  mode 
on  a  large  computer,  a  data  card  deck  had  to  be  prepared  and  submitted 
for  each  set  of  crosshole  data.  This  Part  documents  the  conversion  of 
CROSSHOLE  to  a  time-sharing  mode,  making  the  program  much  more  con¬ 
venient  to  use  and  greatly  decreasing  the  turnaround  time. 

Minicomputer  Processing  of  Seismic 
Refraction  Data 


108.  In  this  section,  a  processing  procedure  is  described  in 
which  seismic  refraction  analog  field  records  are  processed  by  mini¬ 
computer.  The  procedure  can  be  summarized  as  follows: 

a.  The  analog  records  are  examined  in  order  to  "pick" 
first-arrival  events. 

l>.  The  analog  records  are  placed  on  a  large  graphics 
tablet  and  the  arrival  times  are  digitized  using  a 
four-button  graphics  cursor. 

jc.  The  arrival  time-distance  data  are  listed  in  tabular 
form  and  are  automatically  stored  in  data  files. 

<i.  Arrival  time-distance  plots  are  automatically  plotted 
if  desired. 

Straightline  segments  are  manually  fit  to  the  data  on 
the  arrival  time-distance  plots. 

_f.  Key  points  determined  by  intersections  of  the  straight- 
line  segments  are  digitized  using  the  graphics  cursor. 

&.  Velocities  (the  inverse  slopes  of  the  line  segments) 
and  depths  to  interfaces  are  automatically  calculated. 

h.  The  procedure  in  steps  a-<i  can  be  applied  to  any 

events  which  can  be  identified  on  the  analog  records. 


BASIC-language  programs  for  accomplishing  the  above  processing  steps 
have  been  written  and  are  operational  on  a  Tektronix  Model  4051  mini¬ 
computer  and  associated  digital  plotter  and  graphics  tablet;  the  proce¬ 
dure  could  easily  by  adapted  for  use  with  other  minicomputers  with 
BASIC-language  capability.  Input  instructions  for  the  processing  pro¬ 
grams  follow  and  listings  are  given  in  Appendix  H.  It  is  important  to 
note  that  the  key  steps  in  the  operation  (selecting  of  first  arrivals 
(step  a)  and  fitting  line  segments  to  the  data  (step  e  ))  are  still 
performed  manually.  Algorithms  have  not  been  developed  to  replace  the 
judgment  involved  in  these  steps. 

SEISDIG 

109.  SEISDIG  is  a  general  purpose  seismic  record  digitization 
program.  The  program  is  well  documented  and  prompting  messages  are 
printed  before  each  input.  The  following  items  summarize  the  input/ 
output  sequence: 

a.  The  first  input  request  is  for  data  identification,  up 
to  72  characters  in  length. 

_b.  The  next  four  input  requests  are  for  (1)  "shothole" 
coordinate,  (2)  distance  from  "shothole"  to  nearest 
geophone,  (3)  "shothole"  depth  (zero  if  source  applied 
at  surface,  such  as  hammer  blow),  and  (4)  spacing 
between  geophones  along  survey  line. 

c_.  Three  input  requests  define  the  time  scale:  (1)  digi¬ 
tize  timing  line  just  before  time  break,  (2)  digitize 
timing  line  200  msec  later  (can  be  changed) ,  and 

(3)  digitize  time  break  (times  (1)  and  (3)  can  be  the 
same) . 

(d.  Now  the  first  arrivals  are  digitized  using  the  four- 
button  cursor  as  follows: 

(1)  Press  button  "z"  to  digitize  point. 

(2)  Press  button  "1"  to  skip  a  trace. 

(3)  Press  button  "2"  to  redigitize  last  point. 

(4)  Press  button  "3"  to  digitize  the  last  point  of  a 
record. 

(5)  A  tabular  listing  of  arrival  time-distance  is 
produced. 

(6)  An  opportunity  is  now  given  to  redigitize  any  of 
the  points. 
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(7)  The  data  are  now  stored  in  a  data  file  on  tape. 

SEISPLOT 

110.  SEISPLOT  reads  the  SEISDIG  data  files  and  produces  time- 
distance  plots.  The  program  is  well  documented  and  prompting  messages 
appear  before  each  input.  The  following  items  describe  the  input/output 
sequence : 

a.  For  each  operation  in  the  program,  the  following  "menu" 
is  printed,  and  selection  of  an  item  number  executes  the 
indicated  operation: 

(1)  Enter  data. 

(2)  Change  or  add  data. 

(3)  Plot  data  and  label  axes. 

(4)  Choose  between  paper  or  CRT  plot. 

(5)  Display  data. 

(6)  Select  symbol. 

(7)  Store  data  on  tape. 

(8)  Read  data  from  tape. 

(9)  Stop  program. 

b^.  If  menu  item  (8)  is  selected,  the  number  of  the  input 
data  file  is  requested. 

c^.  When  menu  item  (3)  is  selected,  x  and  y  scale 

factors  and  axis  labels  are  requested,  and  a  plot  is 
produced  with  x  and  y  axes  of  7  in.  and  5  in. 
length,  respectively. 

REFINT 

111.  REFINT  computes  apparent  velocities  of  line  segments  on  the 
arrival  time-distance  plot  from  graphics  cursor  input  of  the  intersec¬ 
tion  points  of  the  line  segments.  Also,  assuming  the  apparent  velocities 
are  true  layer  velocities,  interface  depths  are  calculated.  If  both 
forward  and  reverse  time-distance  plots  are  analyzed,  true  layer  velo¬ 
cities  are  calculated  using  the  harmonic  mean  formula.*  The  following 
items  summarize  the  input/output  sequence: 

*  i.e.,  1_  i  ^i  1  \  ;  where  refers  to  true  velocity,  and 


V  and  VD  are  the  forward  and  reverse  velocities,  respectively; 

r  K 

V  *  V  =  V  if  the  refractor  is  horizontal. 

T  r  R 


1 


101 


\ 

! 

1 

< 

* 


t 


a.  The  first  two  input  requests  establish  whether  or  not 
both  forward  and  reverse  data  are  to  be  processed,  and, 
if  so,  which  is  to  be  input  first. 

_b.  The  next  three  inputs  are  with  the  graphics  cursor  and 
establish  the  scale  factors:  origin,  rightmost  point 
on  horizontal  axis,  uppermost  point  on  vertical  axis. 

c.  Next,  the  number  of  velocity  layers  associated  with  the 
forward  and  reverse  data  is  input. 

d_.  The  crossover  (critical)  distances  or  line  intersection 
points  plus  an  additional  point  on  the  highest  velocity 
line  are  now  input  with  the  cursor. 

e.  Next,  a  series  of  inputs  establishes  the  geometry  of 
the  line,  including  source  locations  relative  to  the 
origin  and  source  depths. 

_f.  The  tabulated  output  includes  the  critical  distances, 
apparent  velocities,  and  calculated  depths  (assuming 
horizontal  refractors)  for  forward  and  reverse  survey 
lines  and  finally  the  true  velocities. 

Example  1 

112.  Figure  53  is  an  example  of  the  plotted  output  of  SEISPLOT. 
The  data  are  from  a  single-ended  seismic  refraction  line.  Triangles  in 
Figure  53  represent  first-arrival  events  at  the  24  geophones  of  the  line, 
and  the  source*  point  is  at  the  origin.  The  survey  consisted  of  a 
series  of  these  single-ended  refraction  lines  along  a  survey  line  paral¬ 
lel  to  a  critical  structure,  with  the  source  point  advanced  50  ft  each 
time.  The  hexagons  in  Figure  53  are  the  critical  distances  or  inter¬ 
section  points  at  A  and  B  and  the  additional  point  C  on  the  highest 
velocity  segment  which  are  digitized  as  input  to  REFINT.  Figure  54  is 
the  tabular  output  from  REFINT. 

Example  2 

113.  Figures  55  and  56  illustrate  an  example  similar  to  the  one 
above.  The  objective  of  this  survey  was  to  evaluate  a  borehole  air-gun 
as  a  source  for  seismic  refraction  surveys.  The  refracting  interface 

in  this  case  is  the  water  table,  and  the  depth  to  the  interface  of  11  ft 
calculated  by  REFINT  (Figure  56)  agrees  with  the  known  depth  to  the  water 
table  at  the  site. 


1 


*  The  source  for  this  survey  was  a  vertically  mounted  "shotgun"  which 
fires  a  slug  into  the  ground. 


•  •  <  • 
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Figure  53.  SEISPLOT  output  for  single-ended  seismic  refraction  line 

FORWARD  REVERSE 


THE  CRITICAL  DISTANCES  ARE: 

XU)  »  20  XC1>  *  0 

X<2>  »  93  X(2>  *  0 


THE  APPARENT  VELOCITIES  ARE: 

vu>  « 

948  fps 

VU>  * 

0 

fps 

U(2>  ■ 

2295  fps 

V<2)  = 

0 

fps 

V<3>  * 

6091  fps 

V<3>  = 

8 

fps 

THE  CALCULATED  DEPTHS  ARE: 

DU)  «  6.48  ft  DU)  =  0.00  ft 

D<2>  «  36.55  ft  D(2>  *  0.00  ft 

THE  TRUE  VELOCITIES  HERE  NOT  COMPUTED  FOR  THIS  CASE 

Figure  54.  REFINT  output  for  the  time-distance  plot  in  Figure  53 
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114.  SEISDIG  and  SEISPLOT  can  be  used  to  process  any  event  which 
can  be  "picked"  on  the  analog  seismic  records.  Figure  57  illustrates  the 
use  of  these  two  programs  to  process  several  events  which  can  be  identi¬ 
fied  on  the  analog  records.  Although  a  discussion  of  the  events  and 
their  analysis  is  beyond  the  scope  of  this  report,  the  events  include 
direct  waves  (one  of  which  is  the  air  wave),  fi-  t-arrival  refracted 
compression  wave,  secondary  refracted  wave,  the  dispersed  Rayleigh  wave 
train,  etc. 

DOMER 

115.  A  fourth  BASIC-language  program,  DOMER,  has  been  developed 
for  processing  events  identifiable  in  the  Rayleigh  wave  train  on  seismic 
refraction  records.  The  processing  sequence  described  here  is  not  a 
rigorous  Rayleigh  wave  dispersion  analysis.  In  a  rigorous  analysis,  the 
phase  velocities  (Vp)  are  determined  as  Vp(T)  =  Ax/At  ,  where  Ax  is 
the  separation  of  two  geophones  and  At  is  the  phase  shift  between  the 
Fourier  component  with  period  T  at  the  two  geophones  (determined  by  a 
Fourier  analysis  of  the  records  from  the  two  geophones) .  Group  veloci¬ 
ties  (VG)  can  then  be  calculated  from  the  phase  velocities  using  the 
dispersion  relation:  Vq(t)  -  Vp(T)  +  T[dVp(T)/dT]  .  Plotting  group 
and/or  phase  velocities  as  a  function  of  period  T  or  frequency 

f(f  =  yields  the  Rayleigh  wave  dispersion  curves.  Interpretation  of  a 
dispersion  curve  involves  deducing  a  layered  earth  model  with  a  theoret¬ 
ical  dispersion  curve  that  best  matches  the  measured  curve  either  with 
an  iterative  computer  program  or  a  set  of  standard  dispersion  curves 
(Grant  and  West,  1965);  Dobrin,  Simon,  and  Lawrence,  1951;  and  Ewing, 
Jardetzky,  and  Press,  1957). 

116.  The  technique  used  here  is  to  characterize  an  identifiable 
peak  or  trough  in  the  Rayleigh  wave  train  by  its  mean  period,  T  ,  which 
is  determined  simply  as  the  time  difference  between  the  two  neighboring 
troughs  or  peaks,  respectively.  If  the  distance  x  from  the  source  to 
a  given  geophone  is  greater  than  the  longest  wavelength  recorded  by 
that  geophone,  then  the  group  velocity  for  a  period  T  =  T  is  given  by 
C(T)  =  x/t  ,  with  sufficient  accuracy  for  most  purposes,  where  t  is 


Example  of  the  use  of  SEISDIG  and  SEISPLOT  to  produce  time-distance 
multiple  events  identifiable  on  a  seismic  refraction  record 


the  arrival  time  for  the  peak  or  trough  with  mean  period  T  at  the 
geophone  at  distance  x  .  For  an  event,  peak  or  trough,  in  the  Rayleigh 
wave  train  that  can  be  followed  or  identified  on  two  or  more  geophone 
traces,  the  phase  velocity  can  be  identified  as  the  inverse  slope  of  a 
line  through  the  events  in  a  time-distance  plot  (see  Figure  57)  i£_  the 
mean  period  of  the  event  does  not  change  significantly  from  one  trace 
to  the  next  (Grant  and  West,  1965).  This  technique,  particularly  the 
phase  velocity  determination,  is  seldom  accurate  enough  for  quantitative 
Rayleigh  wave  dispersion  analysis.  Also,  it  is  often  not  possible  to 
identify  enough  "events"  to  define  the  dispersion  curves  very  well. 
However,  the  technique  is  useful  for  site  characterization,  such  as 
location  of  areas  with  anomalously  low  Rayleigh  wave  velocity  (hence,  low 
shear  wave  velocity) .  The  Rayleigh  wave  phase  velocity  versus  mean 
period  data  can  be  converted  to  velocity  versus  depth  data  by  computing 
wavelengths  A  (=VpT)  and  using  a  "rule-of-thumb,"  such  as  the  half¬ 
wavelength  rule,  to  assign  the  velocity  Vp(A)  to  a  depth  A/2  (Chang 
and  Ballard,  1973).* 

117.  A  listing  of  DOMER  is  in  Appendix  H,  and  the  input/output 
sequence  is  described  below: 

a.  Input  the  desired  title. 

b_.  Input  the  geophone  spacing. 

jg.  Input  the  time  interval  to  be  digitized,  e.g.,  300  msec. 

d_.  Digitize,  using  the  cursor,  the  time  interval,  e.g.,  the 
0-  and  300-msec  timing  lines. 

Digitize  zero  time,  i.e.,  either  the  0-msec  timing 
line  or  a  time-break. 

_f.  Input  the  number  of  events  (maximum  of  five)  to  be 
digitized. 

jg.  For  each  event: 

(1)  Input  starting  trace  number. 

(2)  Digitize  the  arrival  time  of  the  event,  peak,  or 
trough  on  the  starting  trace. 


*  This  is  only  an  empirical  procedure  which  should  work  best  for  sites 
where  property  variations  are  transitional  in  nature  over  the  depth 
of  investigation,  i.e.,  not  distinctly  layered. 


(3)  Digitize  peak  or  trough  to  left  of  event. 

(4)  Digitize  peak  or  trough  to  right  of  event. 

(5)  Move  to  next  trace  and  repeat  steps. 

(6)  One  button  on  the  cursor  is  used  for  each  of  the 
following  functions:  (a)  digitize  point,  (b)  skip 
a  trace,  (c)  redigitize  preceding  point,  and 

(d)  digitize  the  last  point  in  an  event. 

(7)  Repeat  steps  (l)-(6)  for  next  event. 

For  each  event  a  table  is  printed  listing  distance 
(X) ,  arrival  time  (T) ,  mean  frequency  (F) ,  and  group 
velocity  (V  =  X/T)  for  each  peak  or  trough  in  that 
event .  ® 

A  time-distance  plot  for  all  the  events  is  produced; 
the  input  is  the  same  as  for  SEISPLOT,  menu  item  (3) . 


Example  4 


118.  Figure  58  is  a  plot  produced  by  DOMER  of  three  events 
identified  on  a  seismic  refraction  record  from  the  same  site  as  for  the 
examples  in  Figures  53  and  57.  Phase  velocities  for  the  events  are 
indicated  in  Figure  58.  Tabular  output  for  event  I  is  given  in 
Figure  59. 


Computer  Modeling  and  Interpretation  of 
Seismic  Refraction  Data 


119.  Two  problems  can  be  identified  related  to  the  seismic 
refraction  method:  (a)  the  direct  problem,  and  (b)  the  inverse  problem. 
The  direct  problem  involves  the  determination  of  arrival  times  as  a 
function  of  distance  from  a  hypothetical  source  for  various  seismic 
events  and  a  specified  model;  the  model  consists  of  layer  velocities, 
layer  thicknesses,  and  interface  dips.  For  a  given  set  of  arrival 
time  versus  distance  data  from  a  refraction  survey,  the  inverse  problem 
involves  the  determination  of  the  parameters  of  a  subsurface  model 
from  the  data  itself.  Two  FORTRAN  computer  programs  have  been  developed 
which  solve  the  direct  and  inverse  problems  of  the  seismic  refraction 
method,  REFRDIR  and  REFRINV,  respectively.  REFRDIR  is  useful  as  a 
modeling  tool  for  planning  field  surveys,  e.g.,  geophone  spacing  and 
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EUENT  NUMBER  1 


X, ft  TiNSCC 


ie 

20 

30 

40 

124.3 

50 

132.7 

60 

148.5 

70 

157.2 

80 

165.6 

90 

174 

100 

181.2 

110 

187.6 

120 

195.3 

130 

281.4 

140 

211.6 

150 

220.2 

160 

229.4 

170 

242.5 

180 

249.4 

190 

256.3 

200 

265 

210 

273.1 

220 

230 

240 

ihz 

Us, ft/s 

48.1 

321.8 

49.9 

376.7 

57.7 

404 

56.9 

445.2 

48.7 

483 

48.7 

517.2 

40.8 

551.8 

39.6 

586.3 

38.8 

614.4 

38.5 

645.4 

40 

661.6 

40.8 

681.1 

47.5 

697.4 

44.9 

701 

43 

721.7 

39.2 

741.3 

38.5 

754.7 

37.1 

768.9 

Figure  59.  Tabular  output  from  DOMER  for  Event  I  in  Figure  58 


survey  line  length  required  to  investigate  a  possible  subsurface  model. 
REFRINV  is  very  useful  for  refraction  interpretation,  where  the  data 
indicate  the  possibility  of  multiple,  dipping  layers. 

120.  The  theoretical  basis  for  the  two  programs  (REFRDIR  and 
REFRINV)  is  a  set  of  equations  relating  to  refracted  waves  (see,  for 
example.  Officer,  1957).  These  equations  are  given  in  the  following 
sections  describing  the  programs.  They  consist  of:  an  equation  for 
the  horizontal  phase  velocity  at  the  surface,  equations  corresponding 
to  Snell's  law  at  each  interface,  and  an  equation  to  compute  the 
intercept  times  for  the  refracted  waves. 

121.  Because  the  layer  interfaces  are  assumed  to  be  planar, 
the  travel  time  for  the  wave  refracted  along  the  n*"*1  interface  (or 
top  of  the  nfck  layer)  is  given  by 

t  (x)  -  T  +  x/v  (14) 

n  o,n  n 

Thus,  given  the  horizontal  phase  velocity,  v  ,  and  the  intercept  time, 
th  ^ 

T  for  the  n  refraction,  the  travel  time  can  be  computed  at  all 
o,n 

source-to-receiver  distances,  x  . 

REFRDIR 

122.  The  horizontal  phase  velocity  and  the  intercept  time  are 
computed  for  each  refraction  event  using  the  program  REFRDIR.  In  this 
case,  the  P-wave  velocities,  the  interface  dips,  and  the  layer  "thick¬ 
nesses"  must  be  given.  This  program  gives  the  intercept  times  and  the 
horizontal  phase  velocities  for  both  the  direct  and  the  reverse  profile. 
The  reverse  profile  is  that  array  layout  in  which  the  shot  is  on  the 
opposite  end  of  the  array  relative  to  the  direct  profile. 

123.  In  computing  the  intercept  times  and  the  horizontal  phase 

velocities,  program  REFRDIR  uses  the  angles,  0^  ,  that  the  rays  make 

with  the  normals  to  the  interface.  These  angles,  as  well  as  other 
important  parameters  (for  example,  the  layer  "thicknesses"),  are 
illustrated  in  Figure  60. 

124.  REFRDIR  is  a  modeling  program.  It  assumes:  (a)  that 

the  velocity  variation  in  the  earth  increases  monotonically  with  depth, 
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Figure  60.  Assumed  geometry  for  seismic  refraction  paths  in 
common-strike,  multiple  dipping  layers 


(b)  that  it  can  be  approximated  by  layers  of  constant  velocity  but  with 
varying  thicknesses,  (c)  that  the  interfaces  between  the  layers  are 
planar,  and  (d)  that  the  interfaces  have  the  same  strike  (see  Figure  60). 
If  REFRDIR  is  given  an  input  model  containing  a  velocity  inversion 
(i.e.,  a  decrease  in  velocity  with  depth),  it  will  print  an  error  message 
to  that  effect  and  stop. 

125.  The  input  data  for  the  program  are:  (a)  the  number  of 
layers  in  the  model,  (b)  the  layer  thicknesses  relative  to  the  direct- 
and  reverse-profile  shotpoints  (HPLUS  and  HMINUS;  see  Figure  1),  and 

(c)  the  dip  angles  of  the  interfaces.  The  air/ground  interface  is  the 
first  one  and  it  is  assumed  to  be  horizontal.  Any  velocity  and  distance 


units  may  be  used,  as  long  as  they  are  consistent,  but  the  (dip)  angles 
must  always  be  given  in  degrees.  REFRDIR  computes  and  prints  out: 

(a)  the  intercept  times,  and  (b)  the  horizontal  phase  velocities  of 
the  refractions  from  each  interface  for  the  direct  and  reversed  profiles. 
The  following  equations  are  used  by  REFRDIR: 


sin  0  ,  =  a  ,/a 

n-l,n  n-1  n 


0  .  =  0—  .  =  0  . 
n-l,n  n-l,n  n-l,n 


sin  0j  .  =  (a  ./a.)  sin  (0j  +  <l>.) 

i-i,n  i-i  I  i,n  —  i 


v±  =  o^/sinO*  ±  ^ 


(15) 

(16) 

(17) 

(18) 


+  +  11-2  +  4- 

T—  =  (2H—  1/a  )cos  0  1  +  V  (Hr/a  )  (cos  0 

on  n-1  n-1  n-l,n  i  i  i,n 


+  cos  0  )  (19) 

i,n 

The  a's  are  the  layer  velocities,  the  H's  are  the  layer  thicknesses, 
the  v's  are  the  horizontal  phase  velocities,  and  the  T's  are  the 
intercept  times.  The  superscripts  +  or  -  refer  to  the  direct  and 
reversed  profiles,  respectively.  See  Figure  60  for  the  indexing  and 
angle  definitions. 

126.  For  a  given  layer,  computation  is  started  by  using  Equa¬ 
tion  15  to  solve  for  sin  0  ,  .  This,  in  turn,  is  used  in  Equation 

I  n  1 ,  n  ^ 

17  to  generate  sin  ®^_2  n  through  sin  0y  n  .  The  phase  velocities 
and  intercept  times  are  then  computed  using  Equations  18  and  19.  To 
clarify  the  use  of  these  equations,  the  calculations  for  the  general 
case  of  three  interfaces  have  been  carried  out  in  Appendix  I.  A  listing 
of  REFRDIR  is  also  given  in  Appendix  I. 

127.  Input.  REFRDIR  is  extensively  documented  and  prompting 
messages  appear  before  each  input.  All  input  is  in  free-field  format. 
The  input  sequence  is  given  below: 


Input  No.  1:  NLAYRS 

NLAYRS — numbers  of  layers  in  the  model 

Input  No.  2:  SPRDLN 

SPRDLN — the  spread  length,  i.e.,  the  length  of  the 
refraction  survey  line 

Input  No.  3:  (ALPHA (N) ,  DELTA(N) ,  HPLUS(N),  N=l,  NLAYRS) 
ALPHA(N) — velocity  in  layer  N 

DELTA(N) — dip  angle  (in  degrees)  of  the  Nth  inter¬ 
face,  which  is  the  top  surface  of  layer  N  ; 
DELTA  (1)  =  dip  of  ground  surface  of  model  = 

0 

HPLUS(N) — thickness  of  layer  for  the  direct 

profile  (see  Figure  60) 

Input  No.  3  is  repeated  for  each  layer. 

Input  No.  4: 

Input  "1"  if  only  forward  profile  to  be  plotted,  and 
input  "2"  to  plot  both  forward  and  reverse  profiles. 

128.  Output.  REFRDIR  output  consists  of  tabulated  and  plotted 
versions  of  the  results  of  the  computation.  The  tabulated  output  gives 
the  horizontal  phase  velocities  (apparent  velocities)  and  intercept 
times  for  the  forward  and  reverse  profiles.  For  the  plotted  output, 
the  apparent  velocities  and  intercept  times  are  used  to  define  line 
segments,  and  forward  and  reverse  time-distance  plots  are  produced. 

PL0T2  (Appendix  B)  is  used  to  produce  the  plots. 

129.  Example.  Figures  61  and  62  illustrate  the  use  of  REFRDIR 
to  solve  a  direct  seismic  refraction  problem.  The  hypothetical  model  is 
shown  in  Figure  61,  and  the  spread  length  was  selected  as  150  m.  Com¬ 
puted  time  intercepts,  see  Figure  62,  are  indicated  on  the  plot  in 
Figure  61.  This  example  is  important  because  it  illustrates  that 
intuitive  predictions  of  interface  dip  from  apparent  velocities  or  of 
apparent  velocities  from  dip  may  be  incorrect.  For  the  example  in 
Figures  61  and  62,  intuition  and  experience  might  lead  one  to  expect  that 
the  apparent  velocity  in  the  forward  direction  for  interface  3  would  be 
greater  than  ;  however,  the  results  from  REFRDIR  (see  Figure  62)  show 
that  this  is  not  the  case. 
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Figure  62.  Tabular  output  from  REFRDIR  for  case  shown  in  Figure  61 
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REFRINV 


130.  REFRINV  uses  the  measured  horizontal  phase  velocities 
(apparent  velocities)  and  intercept  times  obtained  from  the  direct  and 
reversed  profiles  from  refraction  surveys  to  determine  the  velocities 
in.  the  layers,  the  dip  angles  of  the  layer  interfaces,  and  the  layer 
"thicknesses."  It  is  an  inverse  program,  i.e.,  it  gives,  for  its 
computed  output,  the  parameters  used  as  the  input  for  the  direct 
program,  REFRDIR.  On  the  other  hand,  the  input  of  REFRINV  corresponds 
to  the  output  of  REFRDIR. 

131.  This  program  uses  the  same  equations  that  are  used  by 
REFRDIR.  However,  it  uses  them  in  opposite  order  to  compute  the  physical 
properties  of  the  medium  by  means  of  a  "layer  stripping"  technique.  That 
is,  the  program  uses  the  measured  data  to  find  the  properties  of  the 
first  layer  and  then  uses  the  measured  data  and  the  properties  of  the 
first  layer  to  find  the  properties  of  the  second  layer  and  so  on. 

REFRINV  also  uses  the  notation  and  the  geometric  parameters  illustrated 
in  Figure  60. 

132.  REFRINV  has  for  its  input:  (a)  the  number  of  layers, 

(b)  the  velocity  in  the  first  layer,  (c)  the  horizontal  phase  velocities 
and  (d)  the  intercept  times  for  the  refracted  waves  from  both  the  direct 
and  reversed  profiles.  The  program  computes  and  prints  out:  (a)  the 
velocity  in  each  layer,  (b)  the  layer  "thicknesses,"  and  (c)  the  dip 
of  each  interface  (the  first  interface  is  the  air /ground  boundary  and  it 
is  assumed  to  be  horizontal).  The  phase  velocities  and  layer  velocities 
are  given  in  metres/msec  (ft/msec),  the  layer  "thicknesses"  are  computed 
in  metres  (ft),  and  the  dips  in  degrees.  Like  program  REFRDIR,  REFRINV 
assumes:  (a)  layer  velocities  increase  monotonically  with  depth,  (b)  the 

velocity  is  constant  in  any  given  layer,  and  (c)  interfaces  are  planar 
and  have  a  common  strike. 

133.  REFRINV  makes  use  of  the  following  equations  (see  Figure  60) 

9y  +!!»,=  arcsin  (a,/V— )  (20) 

l  ,n  —  I  in 


[(a  /a  , )  sin  —  . 
v  m  n-1  m-l,n_ 


9—  +  tp  =  arcsin 

m,n  m 


(21) 


n-1  n  n-l,n’  n-l,n  n-l,n  n-l,n 


,  0.5a,  _+ 

+  n-1  T-  - 

n—  -  — - -  o,n 

n-1  cos  6  , 

n-l,n 


H %  t  + 
x  (cos  9 . 
—  i,n 

a . 

1 


+  cos  9 .  ) 

!»n 


cos  9  n  =  l-(a  , /a  ) 
n-l,n  n-1  n 


2  1/2 


where  the  a's  are  the  layer  velocities,  V's  are  the  phase  velocities, 
the  T's  are  the  intercept  times,  H's  are  the  layer  "thicknesses," 
and  the  \p's  are  angles  between  interfaces. 

134.  Equations  20  through  24  are  used  iteratively:  the  input 
data  for  the  second  layer  and  the  results  from  the  first  layer  are  used 
to  find  the  results  for  the  second  layer;  the  input  data  for  the  third 
layer  and  results  from  the  first  and  second  layers  are  used  to  find  the 
results  for  the  third  layer,  and  so  on.  This  routine  will  become  clearer 
after  examination  of  Appendix  J,  where  these  equations  are  used  in  the 
general  case  of  finding  the  velocities  for  four  layers. 

135.  Input.  The  input  to  REFR1NV  is  in  free-field  format  and  is 
summarized  below: 

Input  No.  1:  NLAYRS ,  VI 

NLAYRS — number  of  layers  (obtained  as  the  number  of 
straightline  segments  in  the  time-distance 
plot) 

VI — true  velocity  of  layer  1  (inverse  slope  of  line 

segment  passing  through  the  origin  of  time-distance 
plot) 

Input  No.  2:  (VPLUS(N),  VMINUS(N),  TPLUS(N),  TMINUS(N), 

N=2 ,  NLAYRS) 

VPLUS(N),  VMINUS(N)  —  forward  and  reverse  apparent 

velocities  respectively  for  the 

N1"*1  interface 

136.  Output .  The  output  of  RESINV  consists  of  two  lists.  The 
first  list  just  summarizes  the  input  data,  while  the  second  list  presents 


the  calculated  results:  true  layer  velocities,  interface  dips,  and 
layer  thicknesses. 

137.  Example.  Figure  63  is  an  example  of  the  output  of  REFRINV. 
The  input  for  this  example  is  just  the  output  from  the  REFRDIR  example 
presented  earlier  in  Figure  62.  Note  that  the  calculated  results  in 
Figure  63  agree  with  input  model  in  Figure  62. 
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Figure  63.  Output  from  REFRINV  using  the  calculated  results  in 
Figure  62  from  REFRDIR  as  the  input  data 


CROSSHOLE:  Time-Sharing  Version 


138.  The  basic  algorithms  used  by  CROSSHOLE  are  documented  in 
Butler,  Skoglund,  and  Landers  (1978);  this  basic  documentation  will  not 


i 
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be  repeated  here.  Rather,  the  changes  necessary  to  convert  to  remote- 
user  or  time-sharing  operations  are  discussed  and  examples  of  the  new 
input /output  format  are  presented.  The  following  four  changes  were 
made: 

Formatted  input  changed  to  allow  free-field  input. 


a. 

b. 

_c  • 
d. 


Input  is  from  data  files  to  avoid  on-line  input  during 
program  execution. 

Input  sequence  changed  to  eliminate  redundant  or  dupli¬ 
cate  input  data. 

Considerable  reformatting  of  program  output  to  allow 
printing  on  8.5-in.-  (21.6-cm-)  wide  terminal  paper. 


b 


CROSSHOLE  is  listed  in  Appendix  K. 

Input 

139.  All  input  is  in  free-field  format  and  is  from  a  data  file 
(except  Input  No.  1  below).  The  input  sequence  and  parameter  descrip¬ 
tions  are  given  below: 

Input  No.  1:  DIN  (1) 

DIN  (1) — name  of  input  data  file 
Input  No.  2:  TITLE 

TITLE — identification  label  for  the  crosshole  data  set 

Input  No.  3*:  LIN,  I0P1,  N,  I0P2,  ISUM,  M,  DIST,  AfcTJf, 
VFIRST ,  VLAST,  DLLAST,  IMAX,  DELGS,  IPUN 

LIN — line  number  followed  by  blank 

I0P1 — input  option  code 

1  for  arrival  times 

2  for  apparent  velocities 

3  for  true  velocity  profile  and  arrival  times 

4  for  true  velocity  profile  and  apparent 

5  for  true  velocity  profile 

N — storage  key  for  output  options,  dimensions  profiles 
for  summary  tables 


*  The  data  file  consists  of  line  numbers  followed  by  blanks,  with  data 
entries  which  follow  on  each  line  separated  by  blanks  or  commas  as 
delimiters. 
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I0P2*output  option  code 

0  Standard  output,  primarily  for  I0P1  =  1  or  2 

1  For  TABDUM,  apparent  velocity  as  a  function  of 
hole  spacing 

2  For  SUMMARY  table  of  three-hole  set,  P-  and  S- 
wave  data 

3  For  SUMTWO  comparison  of  computed  apparent  velo¬ 
cities  with  measured  apparent  velocities  for 
known  velocity  profile 

7  For  carrying  over  the  previous  true  velocity 
profile 

ISUM — type  of  summary  table.  One  for  partial  and  two 
for  full  summary  table 

M — number  of  records  per  hold  set 

DIST — horizontal  surface  distance  between  boreholes 

AZIM — hole  pair  aximuth,  clockwise  from  north  (in 
degrees) 

VFIRST — first  layer  true  velocity  (if  not  defined  by 
the  data) 

VLAST — deepest  layer  true  velocity  (if  not  defined  by 
the  data) 

DLLAST — depth  to  deepest  layer  (if  known) 

IMAX — number  of  true  velocity  layers  (for  input  op¬ 
tions  3,  4,  and  5) 

DELGS — vertical  geophone  spacing  (for  input  option  5 
only) 

IPUN — output  punch  option  (for  use  with  option  5) 

Input  No.  4:  (LIN,  SZ(J),  SX(J) ,  SY(J),  GZ(J),  GX(J) ,  GY(J), 
J  =  1,  M) 

LIN — line  number  followed  by  blank 
SZ(J) — source  depth  of  record 

SX(J) — source  local  x-derivation,  from  borehole  survey 
(north  direction  positive) 

SY(J) — source  local  y-deviation,  from  borehole  survey 
(east  direction  positive) 

Currently,  only  the  I0P2  =  0  option  has  been  formatted  for  output  on 
8. 5-in. -wide  terminal  paper.  For  all  other  output  options,  the  output 
should  be  directed  to  a  batch  printer  or  wide-paper  terminal. 


GZ(J)  ,GX(J)  ,GY(J) — geophone/receiver  depth  .,  x  ,  and 

y  for  JC^  record 

For  I0P1  =  1  or  3 

Input  No.  5:  (LIN,  TR(J,N),  J  =  1,M) 

LIN — line  number  followed  by  space 
TR(J,N) — arrival  time  for  record 

For  I0P1  =  2  or  4 

Input  No.  5:  (LIN,  VA(J,N),J  =  1,M) 

LIN — line  number 

til 

VA(J,N) — apparent  velocity  for  J  record 
For  I0P1  =  3,  4,  or  5 

Input  No.  6:  LIN,  (DL(I,N)  1=1,  IMAX-1) 

LIN — line  number 

DL(IN) — thicknesses  of  specified  true  velocity  layers 
Input  No.  7:  LIN(VL(I,N),  1=1,  IMAX-1) 

LIN — line  number 
VL(I,N) — true  velocities 

Output 

140.  Three  types  of  printed  output  are  generated  by  CROSSHOLE: 
(a)  a  summary  tabulation  of  the  input  data;  (b)  a  list  of  caution  and 
alternative  interpretation  messages;  (c)  a  tabulation  of  the  CROSSHOLE 
interpretation  or  calculation  results. 

Examples 

141.  Figure  64  is  an  example  of  input  data  file  for  a  case  where 
arrival  times  are  input.  Figure  65  is  the  output  from  CROSSHOLE  for  the 
input  data  file  in  Figure  64.  The  caution  messages  in  Figure  65  call 
attention  to  the  fact  that  many  of  the  interface  locations  are  poorly 
defined  due  to  an  insufficient  number  of  apparent  velocity  values  in 
each  of  the  velocity  zones  or  layers. 

142.  Typically  all  available  information  is  utilized  in  develop¬ 
ing  representative  velocity  profiles  for  a  site.  Seismic  refraction  and 
uphole/downhole  seismic  results,  if  available,  are  examined.  Also,  any 


borehole  log  data  are  examined.  Representative  velocities  which  are 
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Figure  64.  Example  of  the  format  of  an  input  data  file  for  CROSSHOLE 


finally  accepted  are  "averaged"  values  of  all  values  available.  Inter¬ 
face  depths  are  guided  by  borehole  data  if  available. 
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PART  V:  SUMMARY  AND  FUTURE  PLANS 


143.  This  report  presents  the  results  of  an  effort  directed  to 
the  improvement  of  geophysical  data  acquisition,  processing,  and  inter¬ 
pretation.  The  major  part  of  the  work  involves  the  adaptation  of 
existing  or  development  of  new  computer  programs  for  processing  and  inter¬ 
preting  geophysical  data.  Some  of  the  work  can  be  described  as  new  and, 
perhaps,  innovative,  while  other  parts  of  the  work  involve  the  implemen¬ 
tation  of  existing  or  state-of-the-art  techniques  to  Corps  of  Engineers 
geotechnical  applications.  The  result  is  the  compilation  of  a  rather 
diverse  group  of  computer  programs  and  methodologies  for  the  electrical 
resistivity,  microgravimetric ,  and  seismic  methods. 

144.  Three  computer  programs  for  processing  and  interpreting 
electrical  resistivity  data  are  presented  and  documented.  RESDIR  and 
RESINV  are  programs  for  use  with  vertical  resistivity  sounding  surveys. 

For  a  given  model  of  subsurface  resistivity  variations,  RESDIR  computes 
the  apparent  resistivity  as  a  function  of  electrode  spacing  for  an 
expanding  electrode  array;  this  capability  is  useful  for  predicting  the 
response  or  applicability  of  resistivity  soundings  to  a  suspected  or 
postulated  resistivity  variation.  RESINV  attempts  to  determine  a  "best- 
fit"  subsurface  resistivity  model  directly  from  the  field  data;  some 
expertise  is  required  on  the  part  of  the  interpreter  in  specifying  an 
initial  or  "best-guess"  model  for  input  to  the  program.  RESDAT  is  a 
general  purpose  resistivity  data  processing  program.  Both  vertical 
sounding  and  horizontal  profiling  survey  data  can  be  handled  by  RESDAT; 
and  for  the  case  of  vertical  sounding  data,  an  option  is  available  for 
interpreting  the  processed  data  using  a  subroutine  version  of  RESINV. 

145.  Three  computer  programs  are  documented  for  use  in  connection 
with  microgravity  surveys  (actually  the  programs  and  techniques  can  be 
with  gravity  surveys  on  any  scale).  TIDES  computes  the  theoretical 
earth-tide  variation  at  any  location  and  is  used  in  conjunction  with 
base  station  reoccupations  to  assure  consistent  gravimeter  performance 


during  field  surveys.  The  program  TALGRAD  computes  gravity  and  gravity- 
gradient  profiles  across  two-dimensional  models.  HILBERT  computes  the 
Hilbert  transform  of  a  discrete  profile  data  set;  if  the  profile  data 
set  is  the  horizontal  gravity-gradient  profile  over  a  two-dimensional 
structure,  then  the  Hilbert  transform  profile  will  be  the  vertical 
gravity  gradient.  In  addition  to  the  three  computer  programs,  two 
microgravity  survey  methodologies  are  presented:  (a)  a  technique  for 
reduction  of  errors  in  microgravity  surveying  by  the  use  ot  optimal 
gravity  station  occupation  schemes;  and  (b)  the  use  of  polynomial 
surface  fitting  for  determining  the  regional  field  component  in  a  set 
of  data. 

146.  Several  computer  programs  for  processing  and  interpreting 
seismic  refraction  and  crosshole  survey  data  are  documented.  Four  pro¬ 
grams  are  presented  for  digitizing,  processing,  and  interpreting  seismic 
refraction  analog  field  data;  use  of  these  programs  considerably  expe¬ 
dites  the  processing  of  refraction  data.  Two  programs  are  presented  for 
interpretation  of  seismic  refraction  data,  REFRDIR  and  REFR1NV.  The 
program  REFRDIR  computes  first-arrival,  time-distance  data  for  a  speci¬ 
fied  subsurface  velocity  model.  REFRINV  determines  parameters  of  a 
subsurface  velocity  model,  consisting  of  layer  thicknesses  and  velo- 
cites,  directly  from  processed  field  data.  Finally,  changes  made  to  the 
program  CROSSHOLE  are  documented.  Specifically,  CROSSHOLE  can  now  be 
executed  from  time-sharing  terminals. 

147.  Examples  of  the  use  of  each  of  the  computer  programs  are 
presented.  Some  of  the  examples  are  quite  brief.  Also,  some  of  the 
examples  appear  in  other  reports  in  greater  detail  (see  Preface  and 
Part  I  for  discussion  of  companion  research  efforts).  However,  some  of 
the  examples  are  presented  in  a  detailed  fashion  and  appear  here  for 
the  first  time. 

Future  Plans 

148.  Recommendations  for  future  work  to  further  automate  geo¬ 
physical  data  processing  and  interpretation  in  support  of  geotechnical 


are  listed  below: 

Obtain  microcomputer  for  use  in  the  field  and  convert 
RESDIR,  RESINV,  and  RESDAT  to  execute  on  it;  this  will 
make  available  in  the  field  rigorous  resistivity 
sounding  interpretations. 

Pursue  the  development  of  automated  pole-dipole 
resistivity  data  processing  and  interpretation 
techniques. 

Acquire  or  develop  a  computer  program  for  automatically 
computing  terrain  corrections  to  microgravity  survey 
data. 

Develop  a  general  purpose  microgravity  data-processing 
program  for  use  with  field  microcomputers. 

Initiate  field  digital  recording  of  seismic  data  to 
eliminate  the  necessity  of  "picking"  field  analog 
records. 

Initiate  data-processing  techniques  on  field  micro¬ 
computer  systems. 

Incorporate  rigorous  seismic  interpretation  proce¬ 
dures  in  conjunction  with  data-processing  techniques. 
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APPENDIX  A:  RESDIR  LISTING 


I 


P 


b 


t? 


RE5D1H 


1 4 i 30 1 1 0  O5/2e/02 


FILE  PAGE  NO,  1 


10** 

20 

30 
.0 
SO 
60 
70 
00 
90 

too 
no 
120 
liO 
140 
ISO 
160 
1  TOC 
10OC 
190C 
200C 
210C 
22  OC 
230C 
240C 
2S0C 
260C 
270C 
20OC 
290C 
300C 

3 1  OC 
320C 
330C 
340C 
3S0C 
3oOC 
370 
37S 
300 
400 
410 
420 
430 
440 
4S0 
460 
470 
400 
490 
500 
S10 
520 
530 
540 
550 


HUN  •|H0SD441/PL0T5,t t H0SD44 1 /PL U T LI , E 
INTtUEN  fc 

C0mM0N/21/E,M,N/Z2/0ELX,SPAC 
COMMON/ ZA3/PC 99 )//A4/R( 134) 

OImEnSIUN  FLTH1 (29), F LTH2(34) 

OImEnSIUN  SN(30),H1 (31 ) #ASP(1U0) 

OAT A (FLTH1 (I ), la  1,29)/, 00046256, *,001 0907,, 
6,0043040, *,002 1236, ,015995, ,017065, ,090105, 
6, 4701 9, - J, 5 15, 2, 7743, •!, 201,, 4544,-, 19427,, 
6,*,0 19 109, ,01 1 656,-, 0071 544,. 0 044042,*,  002 
6,00040124/ 

DATA tPUTH2(l),l«l,34)/. 000230935,, 000 11557 
6,00036665, ,00053753# .0007096,, 00 11504, ,001 
6, 0053773,, 007093,, 01 1503,, 016990,, 024934,, 
6, 113 19,. 16 192,, 22363,, 20621,, 30276,, 15523, 
6*. 196,. 054394, ■,015747,, 0053941,-, 002 1446, 


0017122, ",0020607, 
,21910, ,64722, 1,1415, 
097364, *,054099, ,031729 

715. . 0016749, *,0010335, 

, ,00017034, ,00024935, 

7000. . 0024959. .003064, 
036550, ,053507, ,07° 121 , 
», 32026,* ,53557,, Si  707, 
,000665125/ 


INPUT  NO,  1  ANNAV  CHOICE,  INPUT* 

1  *«F ON  SCHLUHBCHCEH, 

6— FOR  MtNNER, 

3»*F  OR  BIPOLt *BIPCLE , 

INPUT  NO,  2  SPAC,t,M  (FORMAT-FREE) 

SPAC  •  CLOSEST  A  OR  6  8PACING  (REAL) 
t  a  NUMBER  OF  MOOEU  LAYERS  (INTEGER) 

M  a  NUMBER  OF  FIELD  READINGS  (INTEbEK)  ,  6/DECADE 
INPUT  NO,  2A  ENTER  UNLY  FOR  BIPULE-BIPOLt  ARRAY,  INPUT- 
1  —IF  N-VALUES  ARE  VARIED, 

0  —  1F  A-SPAC1NGS  ARE  VARIED, 

INPUT  NO,  2B  ENTER  ONLY  FOR  BIPCLE-BlPOLE,  IF  VALUE  ENTERED  IN  2A  -AS, 
j --INPUT  N-VALUES  (TOTAL  **)  In  INCREASING  ORDER  (F UKMA1 -F REE ) 

0— INPUT  ONE  N-VALUE,  (N.NE.l) 

INPUT  NO,  3  ENTER  LAYER  PARAMETERS,  (TOTAL  2E-1,  FO»m*T*FHEE) 

ORDER—  H(l),M(2),,,,,H(E-t),R(l),R(2),,,,,R(E) 

REPEAT  FOR  ADDITIONAL  MOOELS, 

1  FORMAT(V) 

PRINT, 'INPUT  NO,  1  — INDEX  (ARRAY  TYPE)' 

1000  HE AC  1#  INDEX 

IF ( I NQt X , EU , 0 )  STOP 

PRINT,  'INPUT  NU,  2---SPAC,L,f" 

READ  1,  SPAC.E.m 
I F ( I  NOE  X*2  )  40,40,5 
5  RE *C  1#IX 

IF (IX, EU, 1 )  GO  TU  20 
Jai 

GO  TO  35 
20  Jan 

35  READ  1,  ( SN ( I ) , 1 » 1 , J ) 

40  Na2«E*l 

SPACBALOG(SPAC) 

PRINT,  'INPUT  NU,  3,  ROUEL  PARAMETERS,  Th ICKNfcSSES (M J  ANO 
*  RESISTIVITIES(R)—  H(1),M(2),  ,  ,  ,  ,H(b*l),H(l),  ,  ,  ,  ,K(i-)* 

RE *0  l»(P(I),  1*1, N) 
print  42 


I 


RfcSOIR 


COkT 


laiJBiiu  Ob/it/ti 


FILE  PAUL  no 


2 


560 

42 

FORM T(//"  APPARENT  HfcSISTIVlIf  VA(.Utb») 

570 

IP ClN0tX«2)4i,45,47 

560 

43 

PHUT  44 

590 

44 

FORyATU"  SCHUUMBfcKtith  ARRAY"//) 

600 

GO  TO  50 

610 

45 

PRUT  46 

620 

46 

FORyATC/"  *£NNtR  ARRAY"//) 

630 

CO  TO  SO 

690 

47 

PRUT  48 

650 

48 

FURMTC/"  8 1  POLL  I  PULt  ARRAY"//) 

660 

SO 

DEUX  «  ALOG(10,)/6, 

670 

IP(JN0tX-2)  70,80,300 

660 

70 

YiSp AC-1 9 ,*DLLX«0, 13069 

690 

00  75  I«t,M»28 

TOO 

CALL  TRANSFM(Y,I) 

710 

75 

y*y*oelx 

720 

CALL  FlLTtR<PLTRl,29) 

730 

CO  TO  120 

790 

60 

9aA|.0G  (2,  ) 

750 

Y*SpAC-10iB792495*DfcLX 

760 

DO  110  1*1 , 6>33 

770 

CALL  TRANSMIT,!) 

760 

A*RCI) 

790 

Yl*V+S 

600 

CALL  TRANSPM(Y1,1) 

610 

fi(I)»2,*A.R(I) 

820 

110 

y*y*dllx 

630 

GO  TO  119 

690 

300 

*1*1 

650 

IFClX.nL.D  CO  TO  111 

860 

M  1  *R 

870 

M*1 

660 

111 

DO  117  1*1, *1 

890 

r*SPAC-10,6792495»DLLX 

900 

A*SN(I) 

910 

Al*ABSlA-l.) 

920 

S 1  * ALOG ( At ) 

930 

I F  l  A  ,  LT  *  1 ,  )  YSY.ALUG(A) 

990 

8*1  . 

950 

I  F  ( A , L  T , 1  , )  H*A«A+A-1, 

960 

S2*AL0G (A ) 

970 

$3*AL0C ( A  t l,J 

960 

DO  lie  J*1 ,4A3S 

990 

Y  1  * Y  +  5 1 

1000 

CALL  TRANSF*(Y1,J) 

1010 

AAsH(JJ/A1 

1020 

Y  1  *  Y452 

1050 

CALL  ThANSFP(Y1,J) 

1090 

AA*AA«2,*R(J)/A 

1050 

Yl*YfS3 

1060 

CALL  TrAnSF*IY1 ,J) 

1070 

HtJ)*(AA6H(J)/(A*le))AA«(A»l,J*Al/l2 

1080 

116  ysy+Cux 

1090 

IF  (IX, NE,  1  )  Oil  T(J  117 

1100 

call  FILT£H(FLTR2,34) 

•  •  •  • 


A2 


R 


RESD I K 


CONT 


I  01 361 1U  05/26/82 


Hit  PAGE  Mj, 


mo 

1120 

I  1  AO 

uoo 

1150 

I I  oo 
1170 
1160 
1190 
1200 
1210 
1220 
1230 
1200 
1250 
1260 
1270 
1260 
1290 
1300 
1310 
1320 
1330 
1300 
1350 
1360 
1370 
1360 
1390 
1000 
1O10 
1020 
1030 
1000 
1050 
1060 
1070 
loeu 

1  090 
1500 
1510 
1520 
1530 
1500 
1550 
1560 
1570 
1560 
1590 
1600 
1610 
1620 
1630 
1600 
1650 


RllI)*R!l> 

117  CONTINUE 

JF(M,N£.1J  GO  TO  11 V 
M*Hl 

GO  TO  120 

119  CAtL  FILTEH!FLTR2,36) 

120  PRINT  125, £ 

125  FORMAT  C/I3, "  LAYER  MODEL » " 1 
PRINT  130 

130  FORMATI/5X, "LAYER  NO ,*, 3X , -THICKNESS ", 3X , -KtS 1  ST  1 V 1 T Y */ ) 
00  100  1*1, E«1 
J«I 

PRINT  135,J,P!I),P(I*E-l) 

135  F0RMAT!9X,12,5X,F8,S,7x,F6,i) 

100  CONTINUE 

PRINT  105, £, PIN) 

105  F0RMATI9X, 12, 20X,F683) 

IF  (INUEX>2)  205,205,150 
150  IF  (IX,Nk,l )  GO  TU  190 
SPoEXP (SPAC ) 

PRINT  160, SP 

160  FORMAT (/*  BIPOLE  AaSPAC ING  *»,F6,2) 

PRINT  170 

170  FORMAT  l//10X,-N",9X,»RR0-/) 

DO  16S  1*1, M 

PRINT  l80,SN(I),Ri(l) 

180  FORMAT (7X,F7,2,3X,F9,3) 

165  CONTINUE 
GO  TO  200 

190  PRINT  200,SN(1) 

200  FORMAT!/-  bIPULE  N-SPAClNG  *",Fe,2) 

20S  PRINT  210 

210  FORMAT  C//7X,-SPALlNG".7X,»KhU"/) 

X*SPAC 

DO  230  1*1,  m 

ASH (13 *t XP ( X  ) 

PRINT  220,  ASP(I),NCI) 

220  F0HMAT(6X,F7.2,3X,F9.3) 

230  XBXYOELX 

PRINT,  '00  YOU  nANT  DATA  PLOTS  YES11),  N012)' 

READ  1,  II 

IF(II,EU,2}  GO  TU  200 

PRINT,  'LINEAR!!  )  OR  L0G-L0UC2)' 

READ  1,  JJ 

IF  (JJ.EG.2)  GO  TU  235 
CAUL  HL0T2! A5P,R,h) 

GU  TO  200 

235  CALL  PLUTLL !  ASP, R, m ) 

200  GO  TU  1000 
END 

SUBROUTINE  TRANSFMIY,!) 

INTEGtR  E 
COmmon/21 /E ,m, n 

CUmMUN//A3/P(9R)/ZA0/R!13u) 

DIMENSION  T!50) 


A3 


RfcSOlH 


COM 


141301 10  0 5/26/62 


Fit!  PALt  NO 


166U 

1670 

1600 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1700 

1790 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1000 

1090 

1900 

1910 


U»l,/fcXF(T) 

Tll)",(N) 

00  SO  JR 2#E 

A»l*P(»2,*U«Plt*l»J)) 

Hi(l,<t)/(l,*t) 

HSRP(NM»J) 

TPH»HS*B 

T(J)R(TPR6T(J-1))/(1,MPR*T(J-1)/(HS*RS)) 
30  CONTINUE 
« C  X )»T  ct  J 
RETURN 
tNO 

SUBROUTINE  F 1LTEK (F  LTR  #* ) 

INTE6EH  E 

C0RM0N/21/EfH«N 

CURRUN/2A4/RU34) 

DIrENSION  RtS(3l),FLTR(K) 

00  20  1*1 »R 
HERO 

00  10  J«1«K 

B«FLTH(J)*R(lAK*J) 

10  RErREAB 

20  Rfc8 ( 1 )RNE 

00  30  IR1«R 
30  R(1)RRES(1) 

RETURN 


APPENDIX  B:  PLOT 2  AND  PLOTLL  INPUT  INSTRUCTIONS  AND  LISTINGS 


1 


» 


ft 


i 


Instructions  for  PL0T2 


All  input  is  in  free-field  format,  and  the  program  will  call  for 
the  variables  by  name.  The  plot  specification  input  variables  are  indi¬ 
cated  in  Figure  Bl. 

Input  No.  1:  X0,  Y0,  SFX,  SFY,  IA,  IDASH,  THETA 

X0,Y0 — X  and  Y  coordinates  of  the  origin  on  the 

paper,  in  inches  from  the  lower  left  of  plotting 
surface 

SFX, SFY — scale  factors  in  the  X  and  Y  directions, 
respectively,  in  user  units  per  inch  of  plot 

IA — axes  specification; 

0 — X  and  Y  axes  drawn 

1— no  axes  drawn 

2 —  X  and  Y  axes  drawn  plus  lines  to  form  right 
and  top  border 

IDASH — =0,  plots  solid  line  connecting  data  points, 

^0,  plots  dashed  line 

THETA — angle  in  degrees  between  X-axis  and  long  axis 
of  plotter,  counterclockwise  positive 

Input  No.  2:  HTX,  XL,  XS,  NDX,  N_X,  SPX,  ITX 

HTX — height  of  characters  in  inches  (0.1  is  typical) 
for  X-axis 

XL — length  of  X-axis  in  inches 

XS — starting  point  of  X-axis  from  origin  (X0)  in  inches 

NDX — number  of  digits  to  right  of  decimal  in  axes 
labels 

NPX — power  of  10  by  which  the  scale  is  to  be  multiplied 
SPX, ITX — input  0  for  both 
Input  No.  3:  HTY,  YL,  YS,  NDY,  NPY,  SPY,  ITY 

Exactly  analogous  to  Input  No.  2  except  for  Y-axis. 
Input  No.  4:  X- LABEL 

Input  title  of  X-axis 
Input  No.  5:  Y-LABEL 
Title  for  Y-axis 


•  • 


•  •  • 


Bl 


Definition  of  plot  specification  input  parameters  for  PL0T2.  X0,  Y0,  XS,  YS,  XL,  and 
YL  are  in  inches.  SFX  and  SFY  are  in  user  units  per  inch. 


plot  s*s 


tut  30 114  05/27/02 


ULfc  PAGE  NO, 


1U00C 

1010 

io2o 

loio 

1040 

1050 

lObO 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1100 

1190 

1200 

1230 

1240 

1250 

1260 

1270 

1272 

1274 

1200 

130OC 

1390C 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1400 

1490 

1500 

1510 

1520 

1530 

1540 

1550C 

1560C 

1570 

1500 

1590 

1592 

1600 

1610 

1620 


*•••  gUBROUT  iNt  PUR  TEKTRONIX  4662  0IG1TAL  PLOTTER  *•»»»* 
SUBROUTINE  PLOTS I IOT  ) 

CHARACTER  *10  F6T/10H(156*1,I4)/,I*SC*4 
DlPtNSION  KP(156),IBCO(l),IAS0(2)»IOUT(32),ITAB(4,l6) 
INTEGER  H1T,HIYP,XL0Y,XL0YP,HIX,HIXP 
LOGICAL  L1.L3 

OATA  C|,C2,C3  /O, 46075, 0,01464044, 0,00366211/ 

DATA  IC1,1C2,1C3,1C4,1C5  / 1342 1 7 720,262 144,512, 120 , 4/ 
OATA  lt8C,IE,IUS  /362i070b56,35320, 3092314112/ 

DATA  KP ( 1) ,KP(3) , IRPH  /362S070656, 5366709120, 5502926040/ 
CALL  FP ARAP ( 1 , 160 ) 

10  >  IOT 
!F(I0>69)  2,2,1 

1  10  ■  ID/ IC 1 

2  KPi  6  JE8C*I0*1C2*XE*29 

KP2  *  KPl+6044  1  KPS  ■  KP1*8675  }  KP4  S  KPU1507 

PRINT  1 20 , KP 1 ,KP2,KP4, 160 , KPS 

KP  (2)  ■  1D*1C 1  t  KP ( 4 )  s  I  ESC 

KP(5)  6  KP (2)  »  KP  (6 )  s  75*IC1 

IC J  ■  100*10  I  IK  a7  I  1C  ■  1CI*102*ID 

KP  1  ■  KP 1 *403  t  KP2  ■  KP  1  »4096 

L2  ■  1 

HXF  >  ,61111111  f  HYP  •  446.7273 
hlyP  ■  0  I  XLOYP  8  o  t  HIXP  ■  0 
Hi XP  •  0  >  LOXP  6  o  J  I PNP  8  0 
HP  6  0,  I  ANGP  a  0, 

IXO  8  0 
1Y0  »  0 
RETURN 

*•••**••••••  hhERt  *»•««•••»•»» 


ENTRY  »htR£(XAV,YAY,PACT) 

KP)  8  1ESC*10*1C2*70*IC3  t  k P 4  a  lt8C*10*IC2*76*lCi 
KPS  8  IfcSC*I0*lC2*75*lC3  i  K P 6  a  IL6t*10*lC2*b4*lC3 
PRINT  120,  KP) 

PRINT, "NHE*  PHUHPT  LIGHT  C0"ES  ON  POSITION  PEN,", 

»"  PRESS  CALL  BUTTON  AND  RELEASE" 

PR  J  NT  120, KP6 
PRINT  120, KP5 

READ  FPT,IM,IN2,IN3,IN4,IN5,IN6,IN7 
PRINT  120, KP4 

IN]  s  INI /IC 1 *32  I  IN2  8  IN2/1C 1 *32 

IN]  s  IN)/ IC 1 *32  I  I N4  8  IN4/1L 1 *32 

INS  ■  ( INS/ IC 1*32 ) /S  t  IN6  8  (IN6/ICI-32I/0 

XAv  a  1N1*C1«1N3*C2*!N5*C3  I  YAV  b  1N2*C1*IN4*C2*IN6*C3 

RETURN 


ENTRY  PLOT  IX,Y,IPN) 
IPNX  8  IPN 
IX  s  X*273*IX0 
IY  a  Y*273«1Y0 
IP (IPNX)  10,99,20 
10  IPNX  a  » I PN X 
IXQ  8  X *27 i 


PLOTS*S  COKT  10140114  03/27/62  Flu  FtUt  *0,  2 


1622  I  Vo  *  Y*273 

1624  IX  *  1X0 

1 62e  1Y  ■  1YU 

U40  20  IF(IP\x*3)  40*30,90 

1640  30  IF (*P(l*.l),tU,16S)  CO  TO  40 

1642  KP(1K)  «  ICS 

l6bo  1C  8  1C*2V  I  IK  a  ]k«1 

1670  40  IFflX. 07,0, QS.IY.LT.O, OH, IX, CT, 4QV5.UK, IY.UT, 2730)  u0  TU  65 

1660  Hi X  ■  1X/IC4 

1 6 VO  IX  a  I X"HI X  *1 C6 

1700  HlX  ■  H1X«32 

1702  LOx  a  1X/ICS 

1710  1X^,0  ■  1X*L0X*1C5 

1720  LOx  a  00X464 

1730  hIy  •  IY/IC4 

1740  IY  a  Iy-HIy*IC4 

1750  Hlv  a  H I Y *32 

1752  COY  *  IY/IC5 

1760  XLCY  ■  4*(1Y*UOY*IC5)4I*00466 

1770  LUy  *  U0Y496 

1760  LI  •  *t,  I  L3  a  ,F, 

1600  IP^PNP.Nfc.lPN)  L3  a  ,T, 

1610  IP*P  I  IPX  |  It  ■  2 

1620  IF(1K«147)  50,50,65 

1630  50  IF(HlVaHlYP)  51,52,51 

1640  51  KP(IX)  a  HI Y*IC 1 

1650  1C  a  I C 4H 1  v 

1660  IK  a  I K  4  1 

1670  H J vP  a  HIY 

1860  L3  ■  .1. 

1690  52  IF (XLUY«XLOrP)  54,56,54 

1900  54  HP  ( IK }  a  XLUYMC1 

IVtO  1C  a  IC4XL0Y 

1920  IK  a  I k 4 1 

1930  XL07P  «  XLUY 

1940  kP(IK)  a  LUY  * IC 1 

1950  IC  a  1C4L0Y 

I960  IK  a  I K  4 1 

1970  LOyP  a  LOY 

lteo  Ll  a  ,1.  I  L3  *  ,T, 

I960  56  IF(UOY-LOYP)  60,62,60 

2000  60  KP(1K)  a  LOY* 1C  1 

2010  1C  a  IC4L0Y 

2020  IK  a  I k 4 1 

2030  LOyP  •  COY 

2040  Lt  ■  .7.  I  L 3  «  ,7, 

2050  62  IF (HlXoHIXP)  64,70,64 

2060  04  IF(L1)  60  TO  66 

2070  KP(iM  a  LOYMC 1 

2060  IC  «  IC4L0Y 

209u  IK  a  l k 4 1 

2100  l3  a  , T , 

2110  66  K P ( I * )  a  HIX*IC1 

2120  IC  a  1 C 4H 1 x 

2130  IK  a  1 K 4 1 


PLUTS»S  CUnT 


101)0116  05/27/62 


fltf  P*t»t  NO 


J 


I 


B 


I 
I 


P 


2160 

hi**  ■  NJX 

2150 

70 

IF  (13 1  C 0  10  71 

2160 

IF (L0X»L0xP)  71,72,71 

2170 

71 

kP(Ik)  *  LOX* JC1 

2160 

ic  •  IC9U0X 

2190 

I*  *  1 6  ♦  1 

2200 

tOxP  ■  LOX 

2210 

72 

CO  TO  (99,210,360)  ,1.2 

22i0 

85 

1C  »  *00 ( 1C ,6095) 

2260 

1 F  ( I C  ,  1 5 , 0  )  1C  *  6095 

22S0 

ICC  •  ALOUIO(IC) 

2260 

ICC  *  o 

2270 

KP(IK)  ■  IESC 

2260 

KP(1661)  6  KP{2) 

2290 

KP(IK*2)  «  IRPH 

2)00 

IK  ■  1K92 

2)10 

ENCODE  (F"T,100)  I K , I  CL ♦  1 

2)20 

66 

PRINT  FHT,(KP(I),ISl,IK),IC 

2i)0 

Ht*0  F6t,lCK 

2)00 

IF(lCK/ICl,tU,73)  GU  TU  97 

2350 

IC  s  1C1 

2)60 

IK  6  6 

2370 

CO  TO  (50,93,72,220,270,91)  ,1$.] 

2360 

90 

IS  »  7 

2365 

IF (IPNX,EU,6)  GO  TO  92 

2)90 

IF  ( IK • 1 66 )  91,91,85 

2000 

91 

KP(IK)  c  ICS 

2010 

«P(IK*1)  s  53MC1 

2020 

KP(IK*2)  *  1 0  7  *  I C 1 

2030 

kP(Ik*3)  ■  106*IC1 

2060 

KP(IK66)  *  6 3* I C 1 

2650 

KP(IK*5)  «  95*IC 1 

2660 

IK  *  IK*6  ;  IC  s  IC+65) 

2070 

92 

IS  s  ) 

2660 

CO  TU  65 

2690 

93 

PH  I  NT  120,*P2,KP1 

2500 

RETURN 

2510 

95 

IF (KP(In«l),tU,IU5)  Gu  TO  72 

2520 

KP(1K)  C  ICS 

2530 

IK  »  1 K ♦ 1  ;  xc  s  IC+29 

2560 

IS  ■  6 

2550 

IF(IK-152)  72,72,85 

2500 

97 

ICC  *  I CC ♦ 1 

2570 

IF(ICC«5)  88,96,96 

2560 

98 

PHINT  120  ,KP2 , KP1 

2590 

PRINT,"  PLOTTER  UR  PHUChXP  ERkUH* 

2600 

STOP  "ERROR" 

2ol  0 

99 

RETURN 

2620 

100 

F0R6*T(T2,I3,T9,I1) 

26)0 

120 

FURRAI (2*6, A3, 13, A3) 

2650C 

26O0C 

2670 

ENTRY  SYR6UL(X,Y,M, I8CU,*n0,KC) 

2660 

IF(NC)  320,200,200 

2690 

200 

JF (X>999, )  205,260,205 

B6 
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2700 

205 

IX  a  X*275+l XU 

2710 

IT  »  Y«273*IY0 

2720 

L2  •  2 

2750 

GO  TO  50 

27  40 

210 

L2  ■  I 

2750 

IS  •  5 

2760 

17 (1n»123)  220,220,65 

2770 

220 

IP(H.HP)  222,250,222 

2760 

222 

CONTINUE 

2740 

HP  •  H 

260  0 

KP(IK)  «  IESC 

2610 

KP { I K ♦ 1 )  a  KP(2) 

2620 

KP(IK*2)  •  75-ICl 

2650 

1C  a  1C+I09I44 

2640 

IK  a  IK*3 

2650 

Y  V  AL  ■  HaHYP 

2660 

X  V  A  L  ■  YVAL*HX7 

2670 

tNCUDt(lASC,130)  If lX(XVALt,5) 

2675 

150 

f ORHAT  C 14) 

2660 

1ST  ■  -I 

2690 

224 

L  a  0 

2900 

1)0  226  1  a  1,4 

2910 

I  Ac  «  f LD (L , 9, 1 ASC  ) 

2920 

If (IAC.LT.46)  GO  TO  226 

2950 

KP(IK)  a  I AC* I C  1 

2940 

IK  a  IK ♦ 1 

2950 

IC  a  IC«IAC 

2960 

226 

L  ■  L*4 

2970 

If (1ST)  226,250,240 

2960 

226 

1ST  ■  0 

2990 

KP(IK)  a  44 • 1C  1 

5000 

IK  a  1 K *  1 

5010 

fcNCO0t(lASC,130)  lHX(YVAlA.b) 

5020 

GO  TO  224 

5050 

230 

17 ( Ang-angP )  232,240,232 

5040 

252 

ANGP  ■  ANb 

5050 

1ST  «  1 

5060 

KP(1K)  a  ItSC 

5070 

KP(IK*l)  a  KP(2) 

5060 

KP  ( IK *2  )  a  T4I-1C1 

5090 

IK  P  IK*3 

5100 

IC  «  IC*IO*101 

5110 

LNC00k(IASC,150)  I f I X ( ANG* , S ) 

5120 

GO  TO  224 

5150 

24  0 

CONTINUE 

5140 

KP(IK)  a  4160749566 

5150 

IK  a  I K ♦ 1 

5160 

IC  ■  IC *3 1 

5170 

17 (NC)  260,250,260 

3160 

250 

conti Nut 

5162 

CALL  6C0ASC(IHC0,1AS6,6) 

5l9o 

I AC  a  fL0(9,9,lA36(2)) 

5192 

KP ( I K  )  a  I  AC«1C1 

5200 

IC  «  IC«IAC 

5210 

IK  «  I K ♦  1 

Ulfc  PAGE  NO, 
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JHO 

CO  TO  290 

1210 

260 

CUMlNUfc 

1200 

NT  9  NC/9 

1250 

NL  ■  NC»NT*9 

1260 

1F(NL,CT,0)  NT  9  Nt  ♦  1 

1270 

17 ( NL  a  It , 0 )  NL  9  9 

1280 

1  AC  ■  FLO (0*9, I BC 0(1)) 

1290 

IF ( 1  AC  *  CT  a 1 27 )  GO  TO  300 

1100 

IS  9  6 

1110 

00  270  9  ■ 1 , NT 

1120 

C  9  0 

1110 

IFCSLT.NT)  JT  ■  « 

lioo 

IP(*aGfc,NT)  JT  9  NL 

1150 

00  270  J  9  1  *  JT 

1160 

I AC  •  FLO(l ,9* IBCD (*)  ) 

1170 

FP(IF)  9  IAC«IC1 

1180 

IF  9  1FA1 

1190 

1C  ■  XC9XAC 

1900 

17(IK»151)  270*270*85 

1910 

270 

L  9  LAO 

1920 

290 

FP(IF)  9  XGS 

1910 

IF  9  IFA 1 

1990 

1C  •  ICA29 

1950 

RETURN 

1960 

100 

IF (NCaCT ,7)  CO  TO  290 

1970 

CALL  BCDASC(IBCD,1ASH,NC) 

1980 

00  110  9  9), NT 

1990 

L  9  0 

1500 

IF(9,LT,NT)  JT  9  9 

1510 

IF(M,Ct,NT)  JT  9  NL 

1520 

00  110  J  9  1 , J  T 

1510 

I  AC  9  FLD(L,9,IASB(9)) 

1590 

fP(IF)  9  1  AC*  XL  1 

1550 

I*  9  If  *  1 

1560 

IC  9  1C*JAC 

1570 

110 

L  9  L*9 

1580 

CO  TO  290 

9000C 

9O10C 

9020 

120 

CONTINUt 

9010 

DATA  1TAB  / 

9090C 

PLOT  SYMHOLS 

9050C 

0  1 

9060 

A  1 31266*9060 169 *6* 0 *69268 |6*ll5BV«e* 9600129,6* 

9070C 

2  1 

9060 

6  1o50770,25762,0*0,9225170«9727252*6*0, 

9090C 

9  5 

9100 

A  1079570,9719072*6,0,592018,1690706,0*0* 

9110C 

6  7 

9120 

A  5110610,9727266*6,0* l 101970,1696599,0,0, 

9 1  IOC 

0  9 

9190 

A  •0158702*1051920,25795,0,555282*9850110*6,0, 

9150C 

|0  11 

9160 

A  660651 9, 10996 *290060 1*1698921* •0357792 *9276676 *198297 1*25710 

PlUTS-S  CUNT 
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9160  X  1«9522, 25732, 0,0,555150,902,0,0, 

9162C  i«  COAMma) 

9169  t  9599036,5025929,1605410,0, 

9106C  lb  SIGMA 

9188  8  65925bb, 4969006, 935,0/ 

9190  DATA  JNtG  /■8S8BftOB/ 

9200  RAD  ■  ANG*  f  0 1795329 

9210  CTm  ■  COS(HAO) 

9220  STh  ■  SIN  CHAD ) 

9230  L2  i  3 

9290  F«  •  68 , 25»H 

9250  XI  a  X*273FIX0 

9260  Yl  •  Y*273*IY0 

9270  If  i  3 

9280  IF  (NC ,LT ,»1 )  IP  a  2 

9282  IF(IP,tU,i)  IPNp  *  -IPNP 

9290  MC  a  IBC0C1 ) ♦ I 

9300  IF(MC.l.T,I,0R,MC,GT,l6)  GO  TO  390 

9302  IF(MC,GT,19)  FM  a  J9*H 

9309  ISp  a  2 

9306  1F(HC,GT,19)  ISP  a  o 

9310  DO  350  1A  ■  1  f  9 

9320  IT  a  I T AB 1 1 A, mc ) 

9330  IF  a  0 

9390  IF  (IT)  330,390,390 

9350  330  It  a  1T»INE& 

9360  IF  a  1 

9370  390  DU  350  18  al,6 

9360  10  a  UA»l)*8«lB 

9390  IOuTCIO)  ■  IT-lT/6«8 

9900  IT  a  IT/8 

9910  IF(IB.EU,6tAND,IF,EU,l)  IOUTCIO)  6  1UUT(I0)*9 

9920  350  CONTINUt 

9930  K  ■  1 

9932  370  CONTINUE 

9990  IFCIQUTCKW)  359,352,359 

9950  352  IP  a  3 

9960  GO  TO  380 

9970  359  IF(IOUTCH)-O)  356,390,356 

9960  356  OX  »  C IOUT C* )*ISP ) 

9990  OY  a  C I  OUT C * ♦ 1 ) - 1 SP ) 

9500  IX  a  COX*CTH«UY*STh}*FM*XI 

9510  IY  a  COXaSTHAOY*LTH)#FHaYI 

9520  GU  TO  (90,90,30)  ,]P 

9530  360  IP  a  2 

9590  380  K  s  KY2 

9595  IF(K-31)  370,370,390 

9550  390  (.8  *  1 

9560  GO  TO  290 

9570  ENc 

9600C 


961 OC  •«••••••••*•  NUMBER  *•*•••••«•• 

9620C  •*•*••••••  ••••••••• 

9630  SUBROUTINE  NUMBEH(a,Y,M,FPN,ANG,ND) 

96t«0  CHaHACTEK  f  m T n  #7 ,  IBCN  *50  • 
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<*640  F  PN  X  «  EPN 

6 060  NO  I  -  1 

6670  1E(EPNXJ  10,30,20 

4660  10  FPnX  *  *FPNX 

4640  NO!  «  2 

4700  20  JF  (EPNX.LT.10)  GO  TO  JO 

4710  NO!  ■  NO!  ♦  IFJXlAiaUlO(FPNX)) 

4720  JO  1F(NU)  50,«0»4Q 

4730  40  NOT  ■  NO  I  AND ♦ 1 

4740  ENCODE  (FPTN, 1 l 0 )  NOT , ND 

4750  ENCODE  <I0CN#MTM  FPN 

4760  NC  «  NOT 

4770  GO  TO  00 

4760  60  FPnX  s  FPN 

4740  NOX  ■  NO ♦ 1 

4600  1E(N0X)  60,70,70 

4010  60  FPNX  *  FPNXAlO.AANDX 

4020  nD I  *  MAX(NDI»N0X,1 ) 

40  Jo  70  ENCODE  (F  MN, 120  )  ND1 

4040  ENCODE  U0CN,FHTN)  IF  !  X  (  SIGM  A0  S  ( F  PNX  )  ♦  ,  5 ,  E  PN  X  ) ) 

40SO  NC  *  ND I 

4060  00  CALC  SYH0OL(X,Y,E*,1BCN,ANG,NC) 

4070  RETURN 

4000  110  FURRAT(2M(E,I2,lH,,Il,lE<)) 

4090  120  FURHAT (2H(1, 12,1*1) 

4900  END 

5000C 


5010AA****************A***«AO*  PLOTS  •«*.***...•*•».**... 

5020  SUBROUTINE  PLCT2(X,Y,N) 

5030  DINEN9IUN  miiYU) 

5040  CHARACTER  *70  L6X,LBY,LBX2,L0Y2,EAHT*t (70), 

5050  0  FmTa0/0H(7OA1)/,PINAJ/JH{v)/ 

5060  LOGICAL  Ll/.T,/ 

5070  0*TA  IN  /5 / 

5000  IE  (LI  1  PRIM  t "READ  XU  ,  YO  ,  SF  X  ,  SE  Y  ,  I  A  ,  Iu  AS*  ,  THE  T  A" 

5090  REaD(IN.FIn)  XO,YO, SEX, 8FY,lA,lUA5h, ThETA 

5100  IF(SFX)  ,99, 

5105  SPX  ■  1,  »  SPY  a  1, 

5110  IE(IA,El*,l)  GO  TO  29 

5120  L>  •  |  IT  •  I  I  LX2  «  1  |  IY2  I  •! 

5130  XL2  «  0,  !  YL2  s  o,  »  ITX  ■  l  i  ITy  *  1 

5140  IF  (LI  )  PRINT, ■READ  MT X , XL , *5 , NDX , NPX , SP X , I T X • 

5150  REAO(IN,FIM  HTX,XL»*S,NOX,NPX,SPX,ITX 

5160  1 F  ( L 1  )  PRINT, "READ  MT Y , YL » YS # ND Y , NP Y , SP Y , I T Y " 

5170  READ(IN,FIN)  hty,yl,ys,ndv,npy,spy,ity 

6100  IF (SPX,LE,0,)  SPX  «  1,  t  IE (SPY.Lt.O,)  5P Y  a  1, 

5190  IF(1TX,E0,0J  IT*  •  1  (  IF ( I T  Y  ,EU ,0 )  ITY  «  1 

5200  IE (HTX.LE.O,)  GO  TO  7 

5210  IK  «  1 

5220  IF  (LI  J  PRINT, "HEAD  X*L ABEL " 

5230  1  RtAO(lN,FHT)  L*BT 

5240  DO  2  1*1,70 

5250  K  «  71*1 

5260  IF (LAST (K ) ,NE , 1«  )  GO  TO  I 

5270  2  CONTINUE 


•  •  •  •  • 


•  •  •  • 
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PLQT5»S  COM  lOJiOHO  05/27/62  Hit  P»Ct  Nt,  6 

r 

528  0 

1  OU  70  (6,6,26,28)  ,  !*• 

. . ; 

5290 

6  lNC00E(LBX,FHT)  (LABT(I),I«1,K) 

# 

5100 

LX  a  »x 

n 

S110 

7  It  («TT,Lt,0,  )  GO  TO  9 

11 

5120 

IK  a  2 

5110 

JF(Ll)  PRINT, "REAC  Y-LABtL" 

5100 

SO  TO  1 

5150 

8  ENcaOtU.0Y,7«T)  (LABT (1),I*1«*) 

5160 

L  7  •  K 

5 

5170 

9  IF(I*.Nt,2)  CO  TO  29 

•  j 

, 

5180 

IF(Ul)  PRINT , "Nt AC  HTX2,XL2«*S2,NDX2,NPX2,XY0" 

5390 

RE*D(IN,FIN)  HTX2,XL2,XS2,NDX2,NPX2,XYU 

5900 

IF  ( L  1  J  PRINT, "H£AU  HTy2,Yl2,VS2,ND»2,NPY2,YX0" 

5910 

READ (IN, FIN)  hTy2,YL2,YS2,NDY2,nPY2,Yxu 

5920 

IF (HTX2.LE.0, )  CO  TO  27 

5930 

IK  s  3 

■ 

5990 

IF(LI)  PRINT , •HEAD  X-LABEL2" 

.1 

5950 

CO  TO  1 

•  ' 

5960 

26  ENcOOC (LBX2,FHT )  (LABT  ( I ) ,  1*1  ,k  ) 

5970 

UX2  a  k 

5960 

27  IF(HTT2,EE,0,)  GO  TO  29 

5990 

IK  a  9 

5500 

IF(U>  PRINT,  "HEAD  Y.LABEL2* 

- 

5510 

CO  TO  1 

. 

5520 

28  ENCODE  (LBY2,FNT)  ((.AST  <  I ) ,  !■  1  ,K ) 

4 

5530 

LT2  a  -K 

• 

5590 

29  IF ( IDA3H , NE , 0  )  GO  TO  12 

5550 

TH  ■  THE T A* ( 0 1  79512925 

5560 

S  a  SIMTh)  f  C  a  CUS(TH) 

5570 

XCP  a  8PX*C/9FX  J  XSF  a  SPX«8/SPX 

5580 

YSF  a  SPYpS/SFy  1  YCF  a  SPY*C/SFy 

5590 

CAUL  PLOTS(-A-) 

' 

i _ 

5600 

call  PLOT (X0,Y0,-1) 

l«v 

5610 

DO  10  I  •  l,N 

•  ' 

5620 

M  a  Xd)PXCF  •  Y(1)*Y3F 

,  ■  • 

5630 

Y  a  Xd)»XSF  ♦  Yd)*YCF 

» 

5690 

IF(I,E8,n  CALL  PLUT(i,V,1) 

5650 

10  CALL  PL0T(H,V,2) 

5660 

GU  Tu  19 

5670 

12  IF(Ll)  PRINT, "OAShtO  LINE  •  SL1,SL2  «  SULIO  LENGTHS,", 

5680 

X  »  BL  a  BLANK  LENGTH  (INCHES)" 

5690 

IFul)  PRINT, "HEAC  SL1,SL2,6L" 

• 

5700 

RExO(IN.FIN)  SL 1 , SL2 , BL 

5710 

CALL  PLUTS(«A") 

5720 

CALL  PLOT(XO,YO,*1) 

4 

5710 

call  0 ASHED (X,Y,N,SFX/SPX,SFY/SPY,SLl,SL2,BL,THtTA) 

5790 

19  IF(IX-l)  ,96, 

5750 

XS  a  XS * SPX  ;  YS  a  YSpSPy 

• 

5760 

IF(XL,LEtO.)  GO  TO  16 

4 

5770 

XL  *  XL *SP x  )  XS T  a  XS*3FX/SPX 

5780 

CALL  AXXS19(XS,YS,LBX,LX,HTX,XL,NOX,0,XST,SFX,SPX, 

5790 

X  ITX,NPX,ThETA3 

5600 

16  IFJYL.LE.O,)  CO  TL  17 

5610 

YL  «  YL*SPY  j  YST  a  YS"SFy/SPY 

5620 

CALL  AX1519(X5,YS,L6Y,LY,hTT,YL,nDY, t ,yst ,sfy,spy, 

4 

' 

• 

4 

• 

Bll 

-  ’ 

m 

• 

• 

•  4444444ft 

• 

•  •  • 

- . ^ 
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5810  k  ITY,nPY,ThETA) 

5B40  17  IF (XL2,L£ ,  0 , )  CO  TU  IB 

S850  XL2  *  XL2«8PX  I  XS2  ■  X82«SPX  j  XYO  *  xyO*8Ry 

5860  X5T2  ■  XS2  *SF  X/SPX 

5870  C*LL  AXIS14(XS2,XYO,LBX2,LX2,hTX2,XL2,nUX2,0,X5T2,SFX,SKX< 

5880  k  I T  X , NPX2  *  THt  T  A ) 

5890  18  IF(YL2,Lfc,0,)  CU  TU  98 

5900  YL2  »  YL2*SPY  I  Y52  ■  YS2.SPY  I  YXO  ■  YX0*SPX 

5910  YST2  ■  Y82*SF  Y/SPY 

5420  C*l.L  AXISl4(YXQ,YS2,LBY2,LY2,MY2,YL2,NUY2,t,YST2,SFY,SF>Y, 

5910  k  ITY,NPY2, THETA) 

5940  98  CAtl  PLOT(0.,0.,999) 

5950  99  RETURN 

5960  fcNTHY  INF IL (INF ) 

5970  IN  6  INF  »  LI  ■  ,F, 

5980  RETURN 

5990  END 

6000C 


6Q10C  KEm  •*•**»  'INITIATE  DATA  PLOT*  SUBROUTINE  »•***• 

6020  SUBROUTINE  DASHEDCX8,Y8,H,SFX,SF Y,SL1 ,SL2,bL,THt TA) 

6030  DIMENSION  X8(1),Y8(1) 

6040  INTEGER  F  ,F2,Pi 

6050  NEAL  N1 (2),N2,N5,N6,L1,L2 

6060  LOGICAL  Li 

6070  COi»"UN  /BASIC/  F,F2*H0,R5,Ll»L2,N),N2,Sb,(»U,Cl» 

6080  X  N0,R1,S3,S4,U1,U2>Y0,V5,J0,D3,l3 

6090  TM  ■  THETA., 0174532925 

6100  S  ■  SIN(Th)  f  C  *  CUS(Th) 

6110  XCF  «  C/SFx  |  XSF  ■  8/SFX 

6120  YSF  •  S/SFf  J  YCF  »  C/SFY 

6130  Nl  (  1 )  «  SL1 

6140  Nl (2)  ■  SL2 

6150  N2  •  BL 

6160  F6| 

6170  »2b0 

6180  Li  *  •  F  , 

6190  JO  «  2 

6200  D3  *  >1 

6210  bl  6  X8(1)*XCF  *  Y8(1)*YSF 

6220  R 1  •  XBC1J.XSF  ♦  Y8(1J*YCF 

6230  call  plot  cu i « n i • 3 ) 

6240  00  100  I»2,H 

6250  UO  ■  ui 

6260  h5  ■  GO 

6270  RO  ■  Nl 

6280  V5  •  NO 

6290  ul  •  X8(I)*XCF  a  Y8(I)*YSF 

6300  R 1  ■  X8 ( 1 )  .XSF  «  Y6(1)*YCF 

6310  Ola(GlaUO) 

6320  02a  t  R 1 aRO  J 

6330  OOaSQRT (01**2402**2) 

6340  IF  (DO  )  ,100, 

6350  UlaOl/DO 

6360  U2a02/D0 

6370  IF (F2, EU,0)  CU  TU  10 


\ 


•  •  • 


•  • 


•  •  •  •  • 
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FILE  P*6k  NO,  10 


6)00  ll»Ui*N6 

6)90  LiaU2*R6 

6400  *10»H5 

6410  VUaV5 

6420  CALL  tNTHYl 

64)0  iF(F2.tu,n  oo  tu  too 

6440  10  CHL  SOBLIN 

6450  lF{F2,Nt,ll  00  TO  10 

64o0  100  COMlNUt 

6470  RETURN 

64B0  fcNC 

64900 


6booc  Re*  •noi  D*thkD»Lihf  Subroot i ne  •*••• 

6510  SUBROUTINE  SUBtIN 

6520  INTEGER 

65) 0  REAL  Nl  (2),N2,N5.no,L1 .L2 

6540  LOGICAL  L) 

6550  COrMUN  /BASIC/  F ,F 2 . NO , R5.L 1 ,L2 ,M , n2 , N6 , u 0 , L 1 . 

*560  6  »0,RI,S),54,U1,U2,VO,V5,JO,D),lJ 

6570  H0bH5 

6560  V0aV5 

6590  IF(F,E(.,2J  GO  TU  20 

6600  JO  a  JOAO) 

6610  LlaUl *N1 ( JO ) 

6620  L2aU2*Nl  (JO) 

66) 0  0)  a  «Q) 

6640  GO  TO  SO 

6650  20  LUU14N2 

6660  L2aU2*N2 

6670  ENTRT  INTRYl 

6600  30  h5«h5*L 1 

6690  V5aV5«Li 

6700  IF (AB8(H5>GO)lGT,ABS(Ul«eo))  GO  TO  70 

6710  IF(ABS(V5.RO),ttT,ABS(RI«R0n  GO  TO  70 

6720  F  2a0 

67) 0  IF  (F  ,E0, 1 )  GO  TO  50 

6740  F«l 

6750  40  h5l  •  R5 

6760  V5l  •  V5 

6770  U  »  ,T, 

67B0  RETURN 

6790  50  F  a j 

6B00  60  IF ( , NOT ,L))  GO  TO  65 

6B10  CA^L  PLUT{M5L|VSL,3) 

6620  US  *  .F, 

66)0  65  CAUL  RL0T(M5,V5,2) 

6640  RETURN 

6650  70  HBaUl 

6660  VSaRl 

6670  LlaH5»H0 

6660  LiaV5*V0 

6090  NSaSURT lLl**i*Li»*2) 

6900  IF  (F2, EU,0)  GU  TO  0U 

69J0  N6aN6*N5 

6920  GU  TO  110 
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COM  10130114  05/17/04 

7 iLfc  7606  NO,  It 

6930 

00 

17(7,60,2)  GO  TO  100 

6940 

NOeNl (J0)-N5 

6950 

GO  TO  110 

6960 

100 

N0BN2-N5 

6970 

no 

72*1 

6900 

17(7*1)  60,60,40 

6990 

7000C 

6*0 

7010 

SUgHOUT 1N6  AXI514(X,  Y,  10CO,  NC,  H,  01/6,  NN,  MY,  X*lN,  0», 

7020 

6SPAC6,  ITXC,  NP10,  TM6TA  ) 

7030 

DIMENSION  LbLC*),IBCD(l) 

7040 

DAT*  1BCD1/4H  /,LBL/4h(XlO,4H  )  / 

7050 

XY  «  I X  Y 

7060 

ANClt  «  XY«90,MNETA 

7070 

TH  «  ThETA*, 01745329 

7000 

8  a  SIN(TH) 

7090 

C  a  COSCTN) 

7100 

TIC  ■  SIGN(1,ITIC) 

7110 

SPaC  «  SPACt 

7120 

G  a  h 

7130 

P10  •  NPtO 

7140 

X2  *  X 

7150 

Y2  a  Y 

7160 

XT  «  0, 

7170 

YT  •  0. 

7100 

UlNL  >  2 

7190 

SIZ  ■  sizt 

7200 

17  (  SIZ)  1,16,100 

7210 

1 

LINE  ■  3 

7220 

SIZ  ■  -SIZ 

7230 

100 

NO  a  NN 

7240 

N*  ■  NN 

7250 

I r  (ND)  3,2,2 

7260 

2 

NDlG  •  NO  ♦  1 

7270 

GO  TO  30 

7200 

3 

ND  «  0 

7290 

NOIG  a  0 

7300 

30 

NSPXCt  a  SIZ  /  SPAC  ♦  ,5 

7310 

PN0PAC  ■  N0PAC6 

7320 

TL  *  PNSPAC  «  SPAC 

7330 

M02  ■  G  *  ,5 

7340 

NOT  »  H02  /  3,5 

7350 

HUTT24  a  4,  •  G 

7360 

P0»6N  a  10,  *•  ( *NP 10) 

7370 

DEUX  ■  PO-tN  *  OX 

7300 

KN£N  a  P0-6H  •  XM I N 

7390 

ANG  a  1 , *X Y 

7400 

NB  *  NC 

7410 

ALa«  >  1. 

7412 

XYc  *  ,10 

7420 

17  (Nd)  5,  6,  6 

7430 

5 

Nd  a  *Nb 

7440 

ALaB  a  -1, 

7442 

XYc  «  xylag 

7450 

6 

T 1C  *  T  a  (2,*XY-l,)*ALAd*TlC*,l 

05/27/82 


Ull  P*bt  40, 


PlOTS«S 

COkT  10150114  05/27/82  Fill  Pxbt  40, 

7460 

XT  1C  ■  TICXY  *  XT 

7470 

7 T  If  »  TICXY  *  440 

7480 

AX  ■  48 

7490 

IF  (  P10)  60,65,60 

7500 

60 

AX  a  AX  ♦  8, 

7510 

65 

STiTll  ■  11  *  ,5  •  (7,»AK  >  3,}  *  ht7  •  ,5 

7520 

T 1 C M 1  •  .18  •  TIC  •  ,05 

7550 

ANC"I4  ■  24, 

7540 

X4g68  ■  XMtN 

7550 

LIN  *  5 

7560 

N«AX  ■  0 

7570 

J  •  0 

7580 

00  12  IaJ,N5PACE 

7590 

60 1 0 1 T  a  6011, 

7600 

C*lL  PLOT  (X2,  Y2,  LIN  ) 

7610 

Ll4  a  LINfc 

7620 

XI  a  XT4XTIC 

7650 

Y 1  a  YUVTIC 

7640 

XP  a  X 1 »c  •  Y 1 *S  ♦  X 

7650 

YP  a  X1*S  ♦  Y 1 *C  ♦  Y 

7660 

C Agl  PlOT  CXP,  YP,  2  ) 

7670 

IF  (6)  7,  11,  7 

7680 

7 

IP(«0D(I,1TIC))  8,8,20 

7690 

8 

ITfcMP  a  ,434294482  *AlOG ( ABS (XNOPB ) ♦ ,5  *  1 0 , « * ( »ND ) ) ♦  1  , 

7700 

IF  (ITEPPJ70, 70,71 

7710 

70 

ITE4P  a  1 

7720 

71 

N0I6IT  a  4DI6 1 T ♦ I T t4P 

7750 

IF(X4g«B)9,lO,10 

7740 

9 

NO 1 1 1 T  a  NOIbIT  ♦  1 

7750 

10 

IFfNDIGIT  ■  44AX)77,77,76 

7760 

76 

66 AX  a  NDIbll 

7770 

77 

FOIbIT  a  NOIGIT 

7780 

CtsTfcrt  a  (7.  *  FOIGIT  •  3.)  *  *07  *  ,5 

7790 

XA NO  a  •  AL  AH  •  XY  •  (  T!C*l  ♦  CtNTl*  )  •  CINTIP 

7800 

YA40  a  AlAb  *  AM,  •  (  TICPl  ♦  602)  *  HU2 

7810 

XI  a  XANO  ♦  XT 

7820 

Y 1  «  YANO  ♦  YT 

7850 

XP  X  X1«C  •  Y 1  AS  ♦  X 

7840 

YP  a  Xl»s  ♦  Y1<*C  ♦  Y 

7850 

C All  40*61.4  (XP,  YP,  G  ,  X4UPB,  THtTA,  6A  J 

7860 

20 

X4g4b  a  XNg*B  ♦  oigx 

7870 

IF(A406INaXA40)ll,ll,78 

7880 

78 

A 40 6 1 6  a  XANO 

7890 

1  1 

CALI  PLOT  (X2,  Y2 ,  3  ) 

7900 

XT  a  XT  ♦  SPAC  •  ANG 

7910 

YT  a  YT  ♦  SPAC  •  XY 

7920 

X2  a  XT  *C  •  YT»S  ♦  X 

7950 

Y2  a  XT*S  ♦  YT*C  ♦  Y 

7940 

12 

CUKT1NUI 

7950 

IF  tb)  13,  16,  13 

7960 

15 

NX  6  48/ 4 

7970 

IF  (AHU0(68,4) ) 18,  18, 17 

7980 

17 

NX  a  NX  A  1 

7990 

18 

00  15  1  a  1 , Nx 

8000 

IF  (IBCD(i)*I8CD!)19,l5,t9 

plot  s»s  cunt 
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8010 

8020 

8030 

80^0 

8050 

8080 

8070 

8060 

8090 

8100 

8110 

8120 

8130 

8140 

8150 

6180 

8170 

8180 

8190 

8200 

8210 

8220 

8230 

8240 


15  CON 7 INOt 
GO  TO  16 

19  »N»AX  >  N*AX 

ANC»|0  ■  (7,  A  7N*AX  ■  3,J  *  *07  »  ,5 

XT  J  TOt  »  XY  A  (ANU*1N  ♦  ANO*  I 0  -  ALAb  »IANO«.IO  ♦  XYO))  ♦ 
*  AtU  •  st  not 

Y  T 1 T  Ot  •  AM.  •  (YAMJ  ♦  AO  A  b  *  It.  4  ,lB  ))  ♦  X*  •  SlUOt 

XP  ■  XT lTOt*C  •  Y  T 1 T  Ot  *S  ♦  X 

YP  «  XT  I  TOE  *S  ♦  YTITOt»C  ♦  Y 

C«Ol>  SYt’BUOIXP,  YP,  G,  It»CD,  ANUOt,  M>  ) 

17  (PtO)  14,  16,  14 
14  P4fl  8  NB 

gN  i  (H6  «  1,)  a  S 

XT  J  Tot  •  X T I TOt  4  ANG  •  BN 

Y  T I  Tot  ■  YT1T0E  4  XT  *  BN 

XP  ■  XTlTCt«C  •  Y T 1 TOt*S  4  X 

YP  ■  XT lTOt*S  ♦  YT1 TUt*C  4  Y 

C«Ot  8Y*BO0  (XP,YP,G,080,ANG0t,7) 

XT  1 TOt  •  XTITOE  4  ANG  *  H07T24  -XY**U2 
YTjTOt  «  YTITOt  4  XY  •  HU7T24  4ANG«*02 
XP  «  XT ITOE*C  •  YT I TOt «S  4  X 

YP  ■  XT ITOt*S  4  YTITOt*t  4  Y 

c*0t  NU*BtN  (  XP,  YP,  5,4  *07,  P10,  ANGOt ,  «1  ) 

16  PtTUMN 


PLUTL-S 
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FILE  PAbE  NL 


1 


3000  SUSMUUTlNt  LObAxSlX,Y,bCD,NC,H,SIZt,HCYL,  IXY,XPIN.HA,1TK > 

3010  L  «  v 

3020  b  *  H 

ioio  kcyl  ■  kyl 

3040  KXy  *  IXY 

3050  HA  a  NA 

3000  KTJC  S  itic 

3070  JLAb  ■  1 

3000  XYL  *  ,10 

3090  IF(NC)l,2,2 

3100  1  ILAB  ■  *1 

3110  XYL  *  XYbAG 

3 1  £0  2  TL  ■  Sm*KCYL 

3130  NAhC  *  1-HXY 

3140  Nbl  ■  NC • IL *8 

3150  L*M>  ■  <2*XXY»l)*lLAb*KTJC 

3160  T1CXY  a  LANb»0,l 

3170  XT  iC  a  UCXYAHXY 

3100  YTJC  »  TICXYANANG 

3190  1TIC»1I  »  1-HTIC 

3000  H02  •  U/2, 

3210  HO?  «  C/7, 

3220  FIVM07  «  H07*5, 

3230  FHQ702  *  ,5»FlVh07 

3240  STJTlE  *  ,5*TL  -  ,5«H07*(T«NBl-3) 

3250  XT  «  X 

3200  YT  ■  Z 

3270  CL  a  SIZE 

3200  A»G  *  90,0»HXY 

3290  AMO  ■  ,lo«HTIC»,0b 

3300  ANCl  ■  ANUYFMJ7U? 

3310  HlU  a  ALOblO(XMlN) 

332 J  PlO*  a  H10AKCYL 

3330  XFn  a  ,  5«b 

3340  IF (PIQ.LT.O.O.UH.PIQM.bT ,9,1  XPN  a  XPMYFMU7U2 

3350  CtMtH  a  b ,5*HU7* XHNAK XYAMAMb*H02 

3360  XAhU  a  • J L A0« K X Y • [ ANQ ALE N T t H )  •  CENTtR 

3370  YANO  a  IUAb*NANb*IAN01AH02)  •  *02 

3380  IF (KA)12,12,10 

3390  10  XAHOP  a  XAM0Y2,2»b 

3400  YASOP  a  Y ANOa , 7 *b 

3410  C*CL  SYMBOL<AT*XAM>»YT*YANU,b, 2*10, (I, 0,2) 

3420  CALL  NO«BtH(XTYXANOH,YT*YAHOF,Mymj/,PlO,0,0,»n 

3430  12  CALL  PLOT  (XT*XTK,VTAYT1C,3J 

3440  CALL  PLUT(XT,YT,2) 

3450  OU  60  M*  1  *  KC  Y  L 

3460  TL  *  CL* l N»1  ) 

3470  1L02  a  TL*Hxt 

3480  TL  a  T L  *M ANb 

349u  OU  30  1*2,10 

3500  FLPCOI  «  1 

3510  TLnL  «  ALUtt  1  0  (F  LPC01  )  •  CL 

3520  XI  a  TLI*L*NANb 

3530  XP  a  XIAX1A1L 

3540  Y I  »  TLlNC*aXY 
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2 


3550 
)i»0 
3570 
3580 
3590 
1600 
3610 
3620 
3630 
3640 
3650 
3660 
3o7  0 
3680 
3690 
3700 
3710 
4000C 


YP  ■  YI*YT*TL02 
C*LL  P|.0T(XF,YP,2) 

C*LL  POOT l*P*XTIC*yP*Y1JCj2) 

30  C*(.L  HL0T(*H,YK,3) 

IF(XA)  60  #  60  #  50 
50  CONTINUE 

C*LL  SY*BUU(XPAXAMJ,YFtYANll«<»*2H10,0,0»2) 

P10  «  P10+1 

C*tU  NU"Bt*<lXPAXANUP#YFAYANUP,7 lYNU7,K10,0,0,-t) 

C*LO  P00T(KP#YP,3) 

60  CUNUNOt 

IF (0)  80  #  80  »  7  0 

70  XTlTLfc  ■  KXY«(XANU»CtNTtK«Il.*8*(ttNnH*XYL))  ♦  NANG*STlU.fc 
YTITLt  ■  NAM,*CYAN0YlLA8*((,*,16j)  ♦  NXY«STITLt 
CA|.t  8YPBUt(XTmtAXT,YTITLtAYT,(.,8C0,AN6,N81  ) 

80  HETUHN 
END 


Instructions  for  PLOTLL 


All  input  is  in  free-field  format,  and  the  program  will  call  for 
the  variables  by  name.  The  plot  specification  input  variables  are 
indicated  in  Figure  B2. 

Input  No.  1:  X0,  Y 0,  XMIN,  XCL,  YMIN,  YCL,  IA,  IDASH 

X0,Y0 — X  and  Y  coordinates  of  the  origin  on  the 

paper,  in  inches  from  the  lower  left  of  plotting 
surface 

XMIN — starting  value  for  X-axis  in  user  units  (lowest 
decade  value,  i.e.,  0.1,  1,  10,  100,  etc.) 

XCL — number  of  inches  per  log-cycle  on  X-axis 

YMIN — starting  value  for  Y-axis  in  user  units  (0.1,  1, 
10,  100,  etc.) 

YCL — number  of  inches  per  log  cycle  on  Y-axis 
IA — axes  specification 

0 — plot  axes 

1 —  no  axes 

2 —  X  and  Y  axes  drawn  plus  lines  to  form  right 
and  top  border 

IDASH — =0,  plots  solid  line 
10,  plots  dashed  line 

Input  No.  2:  HTX,  NXC,  NAX 

HTX — height  of  characters  in  inches  for  X-axis  label 

NXC — number  of  X-cycles 

NAX— =1 

Input  No.  3:  HTY,  NYC,  NAY 

Exactly  analogous  to  Input  No.  2  except  for  Y-axis 
Input  No.  4:  X-LABEL 

Input  No.  5:  Y-LABEL 

Input  No.  6:  SL1,  SL2,  BL 

Input  only  if  IDASH  ^  0 

SL1,SL2,BL — length  of  dashes  and  blank  in  inches 

If  IA  =  2,  the  following  two  input  specify  labeling  of 
of  the  right  and  upper  axes. 

Input  No.  7:  HTX2,  NXC2 ,  NAX2 ,  XYO 

Input  No.  8:  HTY2 ,  NYC2 ,  NAY 2 ,  YX0 


•  •  •  •  t 
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Figure  B2 .  Definition  of  plot  specification  input  parameters  for  PLOTLL.  X0,  Y0,  XCL,  YCL, 
XY0,  YX0  are  in  inches.  XMIN  and  YMIN  are  in  user  units  and  expressed  in 
decimal  form  (i.e.,  .01,  .1,  1,  10.  100,  etc.) 


HYX2.HTY2 — height  of  characters  in  inches 
NXC2,NYC2 — number  of  X-  and  Y-cycles,  respectively. 
NAX2,NAY2 — set  both  =  -1 

XYO.YXO — coordinates  in  inches  of  the  upper  right  corner 
of  plot 


4010< 

4020 

4030 

4040 

4050 

4000 

4070 

4000 

4040 

4100 

4110 

4120 

4  l  iO 

4140 

4150 

4100 

4170 

4100 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4200 

4270 

4200 

4240 

4300 

4310 

4)20 

4330 

4340 

4350 

4300 

4370 


lt.IM.MiMt.MMMM*  PIOTU  . . 

SUBtfOUTlNt  HLOTULCXf T.N) 

COMMON  /FLlNf/  Ll,lN 
DlNtNSlON  X(1),Y(1) 

CH«HACTfcM  too  LBX,LBY,LBX2,LbT2,L*BlM Coy), 

0  F*>T«*/Ob(60Al )/,F I*»3/3h(V)/ 

LUgIC»L  LI 

OAT*  Ll/.t,/  ,  IN/5/ 

IT'(Ll)  •’HINT,  *Mt  All  XOfYO.XHIN.xCL.YNlN.YLL.IA.lUASM* 
NLaDUN.F IN)  A0,YU,XHIN(xCL,TI<1s,YCL,I*«IU*&H 
If  (XCL  )  ,49, 

17  (lA.tL.l)  bO  TU  29 

LM  t|  I  l<  i  I  I  LX2  *  1  J  L Y 2  •  •  1 
XL2  *  0.  >  712  a  0,  I  NXC2  ■  0  |  NYL2  a  o 
IF(Ll)  HHINT  ,  *Ht  AU  tiTX,Nx:,NAX" 

H(aO(1N,X1N)  hTX,NXC,NAX 
lO(Ll)  *«lNT,»HtAO  hTY#NYC»NAY* 

HIaD(IN,FIN)  «ty,nyc,nay 
I* (MTX.Lfc.O, )  bo  TO  7 
I*  •  1 

1 4 ( L I  )  HHl N  T , *H£ AU  X»L*BtL " 

1  Hfc AO ( I N , F  n T )  u*BT 
00  2  1*1,00 

*  a  01*1 

IF (L*BT ( a  ) ,  Nfc  ,  1  h  )  bO  TO  3 

2  CONTINUfc 

3  bO  TO  (0,0,20,26)  , I a 

0  tHCOOeitOX.FHn  (L*BTa),I*l,a) 

LX  a  >* 

7  If (HTY.Ll.O, )  CO  TO  9 
1*  *  2 

IftLl)  aHlNT,"Ht*U  Y»L*BtL" 

CO  TO  1 

0  tNCUOt(LBY,TNT)  (L*BT(I),I*|,a) 

LY  a  a 

9  IF  (1A.M.2)  bO  TO  29 

1F(L11  HHlNT,"KtAl>  HTX2,NXC2,NAX2,Xr0" 
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Hue  PALt  so, 


4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
44T0 
4480 
4490 
460  0 
4610 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4860 
4860 
4070 
4000 
4090 
4900 
4910 
4920 


PLUTL*S 


HEaD(In,Finj  hTx2,nxC2»sax2,xyu 

IF (LI  )  PRIST,  "HEAD  HTV2,STC2,S*y2,7X01' 

Rfc*OUS,FlS)  HTY2,NYC2,NAY2,YX0 
IF (XYO.Ut.O.)  XYO  *  NYC2* YLl 
IF(YXO,LE,U,J  Y XO  ■  NXC2*XCL 
IP  (HTX2,LE , 0,  )  GO  TU  27 
IK  ■  3 

IF (LI )  PRIST, "READ  X-LABEL2" 

60  TO  1 

26  ENc0OE(LBX2,FPT)  (L ABT (II, 1*1, K) 

L*2  ■  K 

27  IF(HTY2,LE,0,)  60  TO  29 
IK  ■  4 

IF(Li)  PRIST, "REAO  Y-LABtL2* 

60  TO  1 

28  EScODt  (L8Y2,FHT  )  (LAST (1 ) , !■! ,K) 

LY2  b  .K 

29  XO  >  ALOG(XMJS) 

YO  B  ALOG(YHIN) 

XLF  b  ,4J4294482*XCL 
VLF  ■  ,434294482*YCL 
IF (IDASH.nE.O)  60  TO  12 
CALL  PLOTSCA*) 

CALL  PLOT (XO , YO , «3) 

00  10  I  B  1,N 

IF(- (IJ.LE.O,)  X(I)  «  XPIS 
IF(YCI),LC,0, )  Yd)  B  YPIS 
Ha  (ALOG(X(I))«XO)*XLF 
Y  a  (AL0G(Y(I))-Y0)»YLF 
IF(I.EO.l)  CALL  PLOT (H,V ,3) 

10  CALL  PL0T(M,V,2) 

GO  TU  14 

12  IF(LU  PRINT, "DA8HtU  LISE  -  Stl.SlE  b  SOLID  LENGTHS,", 

X  »  BL  «  ULAN*  LENGTH  (ISCHtSJ* 

IF(L1)  PRIST, "READ  SL1  ,SL2,8L" 

RE*D(IN,FISJ  SL1 , 5L2,BL 
CALL  PLOTS("A") 

CALL  PL0T(X0,YW,»3) 

DO  13  I b  1 , N 

IF (X ( 1 ) ,LE. 0,  )  X(I)  a  xhis 
IF  (YdJ.LE.O.l  Y(IJ  a  yRIN 
X(I)  s  (ALO6(X(I})«X0)*XLF 
Y ( 1 3  *  CALOG(Y(I))«YOJAYLF 

13  CONTINUE 

call  DASHED (X , Y , N, 1 , , 1, ,SL1 ,EL2,bL,U,  } 

14  IF(IA-lj  ,98 , 

IF(NXC.LE.O)  60  TO  16 

CALL  L06AXS(0;,0(,L8X,LX,HTX,XCL,NXC,0,XHIN,SAX,1) 

16  IF (NYC.Lt.O)  60  TO  17 

CALL  L0GAX8(0,,0,*LBY,LY,MTY#YCL»NYC*l»YHlS,NAY»l) 

17  1F(NXC2,LE,0)  UU  TU  18 

CALL  L06AXS(0,,XYO,L8X2,LX2,HTX2,XCL,NXL2,0,XM1s,saX2,1) 
10  IP ( NTC2 , LE , 0  )  60  TU  90 

CALL  LUUAXS(YX0,0,,L8Y2,LY2»PTY2,YCL»nyC2»1,YhIN,nAY2»1) 
90  CALL  PLOT (U,,0,,949) 
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4930  99  RETURN 

4940  END 

5000C 


»**•••«•••••>••••••**»«•  ploily  »*•*»»*#»»•«•»*•»•*< 

subroutine  plotlyu,y,n) 

CORDON  /FLInP/  U 1 » 1  n 
DIMENSION  MIIiUU 

CH*RACUK  *60  LBX,LHY,LBX2,LBY2,LAbTM  160), 

X  FMao/atiloliAl  )/,FIN»3/Am(y)/ 

LUClbAC  11 

DATA  U»/,T,/  ,  IN/*>/ 

IF (LI  )  PRIM, "READ  X0,YU,SFX,YM1N,YLL,IA,IUASh" 
H!.ADUN,F  IN)  X0,Y0,SFX,YRIN,YCL,  I  A,  ID  ASM 
IF  ( SM  )  ,99, 

SF*X  «  1, 

IF(1A,EU,1)  CO  TO  29 

IX  i  ,|  |  LY  i  1  |  LX2  a  1  |  LY2  a  >1 
XL2  ■  0,  t  YL2  ■  0,  J  NYL2  ■  0 

I F  ( L 1 )  PRINT, *REAl)  HT X , XL , X S , NOX , NP X , SPX , 1 T X » 

HE AO (IN, FIN)  HTX,XL,XS,NDX,NPX,SPX,ITX 
IF(SPX,LE,0.)  SPX  a  j,  j  IF ( I TX , EU,0 )  1TX  a  ( 
IF(Ll)  PRINT, "HEAD  HTY,NYC,NAY' 

HE  AO ( I N , F IN)  HTY,NYC,NAY 
IF  (HTX.LE.O.)  CO  TO  7 
IK  a  1 

IP  (LI )  PKINT , "HEAD  X»LABfcL* 

1  RtAO(lN.FMT)  LAST 

00  2  1  ■  1 , 90 

A  a  6 1  ■  I 

IF(LABT(K),NE,1N  )  GO  TO  3 

2  CONTINOt 

3  CO  TO  (6, S, 26, 20)  ,  I K 

6  ENCODECLBX.FHT)  (LAST (I ) , 1*1 ,K) 

LX  a  «K 

7  IF(NTY,LE(0,)  CO  TO  9 
IK  a  2 

IP(L1)  PRINT, "HEAD  Y-LABEL" 

CO  TU  1 

«  ENCODE ILBY,FPT)  (LAOT (I ),I«1,K) 

LY  a  A 

9  IF  (IA.NE.2)  GO  TO  29 

IF(L1)  PRINT, "HEAD  MTX2,XL2,XS2,NDX2, NPX2 *  X  Y  0  ’ 
HEaD(IN,FIN)  hTX2,xL2,XS2,NOX2,nPX2,XY0 
IF(L1)  PRINT, "HEAD  HTY2,NYC2,NAY2,YX0* 
REaO(IN,FIn)  HTy2,NYC2,NAYa,YX0 
IF (XYO.LE.0, )  XYO  a  NYC2* YCL 
IF (YXO.LE.O, )  YXO  a  SPA«X(, 

IF  r«TX2,LE,0,  )  (.0  TO  27 
IK  a  3 

IF (LI)  PRINT, "HtAO  X-LABEL2" 

GO  TU  1 

26  ENCODE (LBX2,FPT)  (LABT ( 1 )  , 1*1 , K ) 

L*2  «  * 

27  IF  (MTY2,Lt,0,;  CO  TO  29 

IK  a  4 


PLUTL»S  CUn 7 


10112145  05/27/82 


FIU  P  Aiifc.  HO 


5 


5510  IP(L1)  PRINT, "HEAP  ABtLif" 

5540  OU  TO  1 

5550  it>  tNCOOt (L6Y2,F»T )  It  AB  T  (  l  )  ,  1  s  1  ,  K  1 
5560  L»2  *  •« 

5570  29  CONTINUE 

55bu  YU  s  ALUO ( Y  H 1 N ) 

5590  XSF  c  SPX/SFX 

5600  YLF  ■  ,414294482*YCL 

bbl 0  IF ( IU*Sn , Nt , U )  CO  TO  12 

5620  CALL  PLOTS(*A") 

5610  CALL  PLUT(XQ,VO, »3) 

5640  OU  ID  I  ■  J»N 

5650  IF  (YUI.U.0,1  Y  1 1  >  ■  THIN 

5660  H  k  X ( I ) *X$F 

5670  V  ■  (AL0G(Y(1))-YU)«YLP 

5680  IF(|,eC.tJ  CALt  PLOT(H,V,J} 

5690  10  CAtt  PL0T(M,V,2) 

5700  00  TO  14 

5710  12  IF  (LI )  PRINT, "OASHtU  LINt  •  SLt»SL2  *  SOLI0  LtNOTHS,", 

5720  6  ■  BL  ■  BLANK  Lfc NOTH  (lNCHtS)1 

5710  IF (LI  )  PRINT  < "HEAD  SL 1  , SL2 ,6L  * 

5740  Rb  AO (IN, FIN)  SL1,SL2,8L 

57S0  CALL  FLOTSC'A*) 

5760  CALL  PL0T(X0,Y0,»3) 

5770  DO  11  1*1, N 

5780  IF(Y(I),LE.O,)  Y ( I )  *  THIN 

5790  X ( 1 )  *  X(I)AXSF 

5800  Y ( 1 1  «  (ALO0(Y(I)J*YGJ*YLF 

5810  11  COMlNUb 

5820  C*LL  DASHbO (x,Y , N, 1 , , 1 , ,&L1 »  SL2 , bL  »  0 ,  ) 

5610  14  IF(1A-U  ,96, 

5640  XS  *  XS«SPX 

5850  IF  (XL.LE.O.)  OU  TU  16 

5660  XL  ■  XL«SPX  |  XS T  •  X5«bFX/SPX 

5870  CAlL  AXl51U(X5,Y5,LbX,LX,HTX,XL*NDX,0,XST,SPX»SPX, 

5860  X  IT  X , 4HX , 0 , ) 

5690  16  IF(NYC,LE,0)  00  TO  17 

5900  C*LL  LOOAXS(0, ,0., Lfl», LT,MTY,YCL,NTC,1, THIN, KAY, l) 

5910  17  IF (XL2, Lt ,0 , )  GO  TO  18 

592u  XL2  *  XL2*8PX  J  XS2  *  X82*JPA 

5910  XbT<!  »  XS2*SF  X/SPX 

5940  CAlL  AXIS14(X32,XY0,L8X2,LX2,PTX2,XL2,NDX2,0,XST2,SFX,SPX, 

5950  fc  I tx,NKX2,0, ) 

5960  18  IF  (NYC2,Lt,0)  00  TU  98 

5970  CALL  L0OAXS(TX0,0,,L8T2,LT2,PTY2,YCLfNTL2,l,YHiK,NAY2,l  J 

5980  98  C*tL  PLOT (0, ,0, ,999) 

5990  99  HtTOHN 

6000  tNC 
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i»«  HON  *jR0SD441/PLQTS#t 
to  INTEGER  fc 

2 0  COMM()N/Zl/t  #M#N/Z2/DEL>‘#SPAC/Zi/Ni/Z«/ll ,HMS,KKSL/Z5/iX 

50  COMMON/ ZA  1  /U  (o5#  JO) /ZA2/U1  (32#30)/ZA3/R(29)//A4/K(31),R2(il)/FA5/ 

40  »H1(3D»P1  (29)/ZAe/SN(30) 

50  DIMENSION  NR (if) ,x(29) 

60C 

70C  CARD  si  ARRAY  CHOICE#  INPUT • 

SUC  l—  FOR  SCHLUMBERGEH, 

9QC  2--F0R  "tNNER# 

100C  3— FOR  b I  ROLE -B I  PULE , 

HOC  CARD  »2  5PAC#E#m,Nn,RMSC  (A  ORma  T  -FREE ) 

120C  8PAC  <  CLOSEST  A  OK  S  SPACING  (REAL) 

1 JOC  t  •  NUMBER  OF  MODEL  LAYERS  ( I NTE GtR ) 

I  ROC  M  c  NUMBER  OF  FIELD  HEADINGS  (INTEGER) 

I50C  NN  c  NUMBER  UF  FIXED  PARAMETES  (InIEGER) 

180C  RMSC  «  RMS  PERCENT  ERROR  CUTOFF  (REAL) 

170C  CARD  «JA  ENTER  ONLY  FOR  BIPQLE-BlPOLt  ARRAY,  INPUT* 

ISOC  t •• I F  REVALUES  ARE  VARIED# 

t ROC  0--IF  A-SPACINGS  ARE  VARIED, 

200C  CARD  »2B  ENTEH  ONLY  FOR  B I PULE-B1P0LE ,  IF  VALUE  ENTERED  IN  2A  »»S- 
2tOC  1--INPUT  N-VALUES  (TOTAL  P )  IN  INCREASING  ORDER  (F ORMA T -r RLE ) 

220c  o-«input  one  revalue,  (n.ne.d 

2300  CARD  *3  SKIP  IF  1  -AS  ENTERED  ON  LARD  s2a,1nPuT- 
240C  1— IF  FItLD  READINGS  ARE  PERFECTLY  LOGARITHMIC  # 

250C  0— OTHER-ISE, 

260C  CARD  * 3 A  ENTER  ONLY  IF  0  HAS  ENTERED  ON  LARD  *i, 

270C  INPUT  A  OR  S-SPAClNGS,  (TOTAL  m,  FURMAT-FREt) 

280C  (ENTER  EXTRA  CARDS  IF  NECESSARY.) 

290 C  CARD  *4  ENTER  FIELD  APPARENT  RtSISTIVlIY  VALUES, 

300C  (FORMAT-FREE,  ENTEH  EXTRA  LARDS  IF  NECESSARY.) 

HOC  CARD  *5#  ENTER  LAYER  PARAMETERS,  (TC  TAL  «!t-t,  FORMAT. FREE) 

320C  UHDEH—  M(t),h(2),,,,,H(t-t),R(l)»R(2)#,,,,R(t) 

3J0C  CARD  *b  ENTtR  FIXED  PARAMETER  NUMBt R 5  (SKIP  IF  NNsU), 

Juoc  SAME  URDtR  AS  CARD  «5# 

350C  I,E,  FOR  4. LAYER  MOUEL IF  h(3)  And  R(2)  FIXED,  ENTtR  i#5 

3bOC  »*»•*••*««•***•** 
370C  REPEAT  FOR  ADDITIONAL  MODtLS, 

3B0C 

385  CALL  F  XOP T 189# ! # l # 0 ) 

390  5  FORMAT(V) 

400  DLL X  «  AL0G(tU,)/6, 

410  1000  HEAD  5, INDEX 

420  IF(INOEX,LE,0)  STOP 

450  HE AO  5#SPAC,t#M,NN,RM5C 

44U  IF ( INDEX-2 )  1 2  # 12 • S 

45u  a  RE  AO  5,  IX 

400  IF (IX, EG, 1 )  GC  TO  9 

470  Jst 

480  GO  TO  11 

490  9  J c M 

500  11  R£  AC  5#  (SN(1 ) # lei , J) 

510  GO  TO  512 

520  12  1X*.1 

530  512  N>2*E-1 
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~  * 


590  8PAC*AL0G(SMAC) 

5S0  IF  (JX,EU«1)  GU  to  11 

560  HEAD  5,  1N0X 1 

*70  IF ( INOX  1 , EU ,  I  }  UU  TO  11 

500  CALL  SPLlNE(M) 

590  Gu  TO  10 

600  15  HEAO  5,  (H2(l),I*l,M) 

610  10  HEAD  9/  (P«I1.I»1»N) 

620  IFUN.Lt.Q)  GU  TO  01 

650  HEAD  5 ,  INF  U),I»1,NN) 

600  01  PRUT  02 

650  02  FORMAT (//"  RESISTIVITY  INVERSION  PROGRAM") 

660  IF(INDtX-2)9i,05,97 

670  03  PHUT  00 

600  00  FORMAT!/"  SCNLUM0EHCEH  ARRAY”/) 

690  GO  TO  *2 

TOO  05  PRUT  06 

710  06  FORMAT!/"  KENNER  ARRAY"/) 

720  GU  TU  *2 

730  07  PRUT  00 

700  00  FORMAT  (/*  blPOLt-BIPOLE  AHRAYV) 

750  IFUX.NE.l)  GO  TO  50 

760  SPSEXP(SPAC) 

770  PRUT  09, SP 

700  09  FORMAT (/5X*BIP0LE  A-8PACING  *"F6,2/) 

790  GO  TO  52 

BOO  50  PRUT  51  ,SN(1 ) 

010  51  FORMAT {/5X"0IPOLE  N. SPACING  »*F6,2/) 

020  52  I1«0 

030  UalO.O 

000  V*1  a5 

050  53  UMAX  *  15 

060  Jmax*1S 

070  60  K 1 »0 

BBO  J1*Q 

090  IFIINDEX-2)  70,00,00 

900  70  CALL  SCHLUM(Kl) 

910  GO  TO  100 

920  00  CALL  MENBIPCKI  ,lN|)tX) 

910  lF(NN.LE.O)  GO  TO  100 

990  DO  95  1*1, NN 

950  K*NF  Cl) 

960  DO  RO  J*1,M 

970  90  U(J,K)*0 

900  95  CONTINUE 

990  100  DO  120  1*1, M 

1000  K(1)*U!I,N«1) 

1010  Rl tI)*AL0G(R2(I)/H(l)) 

1020  DO  110  J *  1  , N 

1010  110  G(1,J)*U(I,J)/R(I) 

1090  120  CONTINUE 

1050  IF (Il.GT.O)  GO  TU  170 

1 OeOC  COMPUTE  SUM  UF  SUUARtS, 

1070  PMJ»0 

1000  DU  130  1*1, M 
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1090  DO 

UOOC  CONPUTt  N*S  PERCENT  tNNCN, 
niu  r*s»o 

1120  00  140  l  ■  1 « M 

nso  i  u  o  u*s»NHS«(i»t<(n/H2cx))«(i»H(X)/Kiinj 

ll«t 0  RRS»100,*SUHl  (H*S/H) 

I  l5o  c*ll  011  1  PL T 

1160  JF(R«S,LE,RPSC)  OU  TO  1000 

I I  TOC  COMPUTE  INITIAL  fcPSlLON, 

1160  EDO 

1190  00  160  1*1, « 

1200  DU  150  J«1#n 

1210  ISO  tl*EDUd,J)*Ud#J) 

1220  160  CONTINUE 

12)0  El6S0»T(El/{N*N)I 

12O0C  ORTnOCONAL  FACTORIZATION, 

12S0  170  CALL  ORFACi 

1260  160  CALL  0NFAC2U1) 

1270  CALL  6ACKSU6 

1260  IF(NN,Lt,0)  GU  TO  200 

1290  00  190  la  1  ,NN 

1)00  JaNF(IJ 

1)10  190  Pl(J)aO 

1J20  200  00  210  1*1, N 

1)30  X(l)ap(i) 

DUO  P(I)aPlI)APl(I) 

1  )S0  210  lF(Pd).Lb.O)  P  ( I  )  *0 , 00  1 

1360  Alai 

D70C  COMPUTE  Nt»  NODE L  APPAHEnT  RESISTIVITIES, 

1380  IP ( I NDt  X»2 )  220,2)0,230 

1)90  220  CALL  SCNLUPlAll 

1400  GU  TU  2S0 

1410  230  C*Ll  4ENBIPIN1, INDEX) 

1420C  CflPPUTE  N£*  SUP  OP  SQUARES, 

14) 0  2S0  P*I  1«0 

1440  00  260  1  a  1 , p 

1450  R (I ) *Q (I » Nt  1  ) 

1460  IF  (H (1  )  ,Lt ,0  )  NCI) *0,001 

1470  A*AL0G(R2(l)/"d)) 

1460  260  Pull *PhI 1 ♦ A • A 

1490C  COPPAKE  Nfc*  AND  OLD  SUP  OF  SQUARES, 

1500  IF  (PmH.LT, PHI  )  GU  TU  2E0 

1510C  INCRtASE  EPSILON, 

1520  DO  275  1*1, N 

15) 0  275  P(I)«X(I) 

1540  E  l*V*t 1 

1550  JlaJltl 

1560  IF  (Jl.LT.JNAX)  GO  TU  180 

1570  *R1  TE  (2 , 277 ) 

1560  277  FORPATC//"  Jl*J*AX,t, TRIAL  "UUtL  *1LL  NUT  CONVERGE," 

1590  CALL  OUTPUT 

1600  GU  TU  1000 

1 6 1 0  280  P*1*PMII 

lo20C  COMPUTE  RRS  PEHLEM  ERROR, 

16) 0  R«S«0 


RfcSINV 


CUNT 


1<U<42IU<4  0  8/26/62 


fILt  PAGE  NO 


u 


l  640 
1680 
1660 
1670 
1660 
1690 
1  700C 
1710 
1720 
1730 
1740 
1780 
1760 
1770 
1760 
1790 
1800 
1610 
1620 
1630 
1640 
1860 
1660 
1670 
I860 
1890 
1«00 
1910 
1920 
1930 
1940 
I960 
1960 
1970 

I960 

1990 

2000 

2010 

2020 

2030 

2040 

2060 

2060 

2070 

2060 

2090 

2100 

2110 

2120 

2130 

2140 

2160 

2160 

2170 

2180 


OU  290  1 6 1 ,  m 

290  Hm86NH$*ii-k(1)/R2iI))*0-k(I)/K21I)) 

4mS*100i  *SUH  l  (R**S/M) 

1  Is  1 1  -*  1 

If  (R*S,Lt,HMSC>  GU  TU  320 
If (Il.Gt.llRAX)  GU  TO  320 
COMPUTE  NE»  EPSILUn, 

If(Jl)  300,300,310 
300  EUEl/U 
310  60  TU  60 
320  C«LU  OUTPUT 
60  TO  1000 
fcNO 

SUBROUTINE  SCHLUR(Kl) 

INTEGER  t 

COMMON/ Z l/t,R,N/22/0tL*,SPAC 
CUl-MUN/ZA  1/U  (66,30  J/ZA3/P  (29) 

DIMENSION  f LTR (29) 

DATA (f LTR  ( I ),I* 1,29J/, 0 0046286, •, 00 10907, ,00 17 122,*, 002068 <, 
6,0093046, ■, 0021236, ,018996, ,017066, ,096108, ,21916, ,64722, 1,1418, 

8, 47619, «3, 616, 2, 7743, >1,201, ,4644, *,19427, ,097 36 4, *,084099, ^031729 
fc,*, 01 91 09, ,011686, *,007 1844, ,0044042, *,0027 18,, 00 16749, *,001 0336, ' 
6,00040124/ 

Y«SPAC*19,»0EL»*0,13069 
DO  20  1>1,R«29 

CALL  TRANSf «(¥,I,R1) 

20  Y6Y«DELX 

J»1 

I f ( K 1 , 6 T ,0)  J«N*1 
DO  30  I • J , N+ 1 

30  CALL  f ILTt«(FLTR,29,I) 

RETURN 

ENC 

SUBROUTINE  *En»IP(M,  INDEX) 

INTEGER  E 

C0MR0N/Zl/E,P,N/Z2/UtLX,5PAC/Z8/lX 
COmHUN/ZA1/U(68,30}/Za3/P(29)/2A6/SN(301 
DIMENSION  FLTR(34J,T(68) 

OAT*(fLTR  ( II, Iel,34J/,000238936,,0001 1887,, 00O1 7034,, 04024MAb, 

8, 00036ee5,, 00083783, ,0007896,,001  1664, ,00  1700B,, 0024989,  ,003664, 
6,0083773, ,007693, ,011883, ,016996, ,024934, ,036886,, U8360 7,  ,0  <6121 , 
A, 11319,, 161 92,, 22363,, 26621,, 30276,, 16823 ,*,32026, *,83887,, 9 176 7, 
8*,1 96, ,064394, *,018747,, 0083941,*, 002 1446, ,000068128/ 

S*ALUG (2 , } 

IH1NDEX-2)  10,10,60 
10  Y»SI*AC*10,8792498«DELX 
DU  88  I*l,«»33 

CALL  TRANSPUT, I, Ml 
If (K1,GT,0)  GU  TO  30 
DO  20  J *  l  , N 
20  T(JJ«U(I,J) 

30  TCN«n»Utl,Nfl) 

T 1 « YAS 

CALL  TRANSf «(Y1,I,R1) 

If (Kl.GT.O)  GU  TO  80 
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2190 
2200 
22  to 
2220 
2230 
2240 
2230 
2260 
2270 
2250 
2290 
2300 
2310 
2320 
2330 
2340 
2330 
2360 
2370 
2350 
2390 
2400 
24)0 
2420 
2430 
2440 
2430 
2460 
2470 
2460 
2490 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
23b0 
2390 
2600 
2610 
2620 
2o30 
2640 
2650 
2660 
2670 
2600 
2690 
2700 
2710 
2720 
2730 


DO  40  J=  1  ,  N 

40  UlIpJ)»2,«T (J)-O(JpJ) 

30  0(l,N*l)«2,*T(N*l)«aU,N»l) 

35  Y»Y*0tL* 

GO  10  160 
60  Mill 

IF(lK.Nfc.t)  GO  TO  70 
M1«M 

N«1 

70  00  150  1«»,41 

Y«SPAC»1U,0792495*DELX 

AlSN(l) 

6=1, 

IMA,  IT.  1,1  B«A«A4A-1, 

A 1 SABS ( A>1 ) 

S 1  ■ ALOG (Al) 

IMA, IT, 1,)  Y*Y.ALUG(A) 

S2» ALOG ( A  ) 

$3cAL0G(A41  ,  J 
DO  140  J«l,*433 
Y1«V4S1 

CALL  T*ANSTNCY1,J,«1) 

IT (K 1 ,GT , 0 )  GO  TO  90 
00  00  K«t,N 

00  T (K)0Q(J,K)/A1 

90  T(N»l)4«U,Ntl)/Al 

Y1«Y4S2 

CALL  ThANSfN(Yl,J,Kl) 

IT  (K1,GT,0)  GO  TO  110 
00  100  *>1,N 

100  T(*)6T(A)»2,*U(J,lO/A 

110  T(Ntl)ST(461)>2,6G(J,N41>/A 

Y 1  * Y  AS  3 

CALL  T4AN0T  4 ( Y 1 , J , 4 1 J 
IT  (M.GT.O)  Gu  TO  130 
00  120  A«l,'« 

120  C(J,K)s(T(K)4'J(J,k)/(A*1,))aA6(A«1,)6A1/(2i*M) 

130  U(J,N4l J3(T(N41 )4U(J,N4| )/(A4l,))*A«(A4l, )*Al/(2(*0) 

140  Y*Y40tLX 

IMIX.Nk.ll  GO  TO  150 

IMM.GT.O)  J 4N ♦  1 
00  145  K*J,N4l 

CALL  TILTtMTtT«,34,M 
1 45  U(I*34,4)6WC1,4) 

130  CONTINUk 

IT (IX.Nk.l)  GO  TU  160 

HMf  1 

00  154  1=1,4 

IT (K1,GT,0)  GO  TO  134 
DO  132  J41, N 

132  G ( I , J ) 0W ( I  4  34 , J  } 

154  U(l,N41)*Gtl434,N41) 

GO  TU  160 
160  J>1 


RESINV 


COST 


m«2l««  05/26/02 


ULt  PAGE  NO 


6 


27«*0 

17  (K!  «G1 |Q)  J»N*1 

2750 

DO  170  l«J»N4l 

2760 

170 

CAUL  )ILTER(3LTR,3<*,1) 

2770 

100 

RETURN 

2700 

fe**0 

2790 

SUBROUTINE  TRANS3R(Y,I,M) 

2000 

INTEGER  t 

2010 

CQM«UN/Zl/t,M,N 

2020 

COMMON/ZA|/U(65,30)/ZA3/P(29) 

20iO 

DIMENSION  T ( 1 5 ) 

2000 

U»i./E*P(7) 

2650 

T(1)«R(N) 

2060 

IF(Kl.LE.O) 

2070 

DO  30  J*2,E 

2000 

A«£*R(»2,*U*R(E41»JJ) 

2090 

06(l.-A)/d.4A) 

2900 

RSAP(N3l»J) 

2910 

TPR6R0AB 

2920 

T(J)»(TPR4T(J-l))/(l,4TRR*T(J»l)/(R5*RS)) 

2930 

IMKl.UT.O)  GU  TO  30 

2900 

C«T (J*l )/RS 

2950 

D»(1,4B*C)*U,4B«C) 

2960 

O(I»N4l-J)«(b*(l.«C4C)42,*0*T (J»1)*(T(J»1)*TPR)/(RS*R8))^D 

2970 

U(I»E*1»J)*( (Oa*U*R0*A  / ( (  1  • o A ) •  1 1 ( 6 A ) ) ) •  1 1 ( »C*C ) ) /D 

2900 

AA«(l(o0*0)/D 

2990 

00  20  K6(E42«J)fE 

3000 

13  (K,GE,t)  GO  TO  20 

3010 

U(I,K)aU(I,K)*AA 

3020 

20 

U(I,R*E-1)«0(I,R*E«1 )»AA 

3030 

30 

CONTINUE 

3000 

U(X»N*1)»T(E) 

3050 

RETURN 

3060 

END 

3070 

SUBROUTINE  3ILTER(3LTH,K,U) 

3000 

integer  l 

3090 

COMM0N/21/E,M,N 

3100 

COMMON/2Al/O(0b,3O) 

3110 

DIMENSION  RES (31 )  ,FlTR (K) 

3120 

DO  20  I«1,M 

3130 

Rt»0 

3100 

DO  10  J«l,K 

3150 

R*3UTR(J)*U(l«KaJ,U 

3160 

10 

HE«RE«R 

3170 

20 

RES ( I )aRE 

3100 

DO  30  I  ■  1 ,  M 

3190 

30 

U  ( I » L )aRES ( I  > 

3200 

RETURN 

3210 

ENC 

3220 

SUBROUTINE  0R3AC1 

3230 

INTEGER  e 

3200 

C0rM0N/21/E*R»n/Z3/n3 

3250 

COMNUN/2 A 1/0(65,30) 

3260 

N3aN 

3270 

I3(M,E8,N)  N3aN-l 

3200 

00  60  I*1»N3 

BES1NV 


COST 


IHtUitM  0  5/26/62 


UlE  7*bt  Mb 


7 


ft 


ft 


ft 


( 


ft 


t. 


3290 

12*141 

3300 

63*0 

3310 

DU  10  J*1<m 

3320 

10 

53«53*0(J,I)«U(J,1) 

3330 

17 (S3.E0.0 )  CU  TU  60 

3300 

Si*S0RT(S3) 

3350 

17 (8(1*1), GT,0)  S3*«S3 

3360 

84*1,/S8«T(2,«83«(55*Q(I,1))) 

3370 

00  20  3*12, h 

3360 

20 

0(J,1)*«S4*«(J,I) 

3390 

8(N*l,l)*S4*(Si-8(I,I)) 

3000 

8(1*1)  ■  S3 

3010 

17  U,£8,N)bO  TO  60 

3020 

DU  '50  J*I2,N 

3030 

Sl*Q(I,J)*b(M*l,l) 

3000 

DO  30  6*12, * 

3450 

30 

SlaSl*8(K,J)*8(6,I) 

3060 

Sia«2«*81 

3070 

8(l,J)*U(I,J)*Sl*0(>''*l,I) 

3060 

DO  40  K*I2,h 

3090 

oo 

UtK, J)*U(6, J)*5)*0(6,l) 

3500 

50 

CONTINUE 

3510 

60 

CONTINUE 

3520 

RETUHN 

3530 

END 

3500 

SUBROUTINE  0H7  *C2 (El) 

3550 

INTEGER  e 

3560 

C0«N0N/21/E,Nf n 

3570 

COkMUN/Z A  I/O (65,101/2*2/01  (32.30) 

3560 

DO  80  1*1. N 

3590 

12*141 

3600 

IKI.EU.n)  GO  TO  20 

3610 

DO  10  J*12.n 

3620 

10 

01(1,  J)*0 

3630 

20 

81(1, 1)*E1 

3600 

83*8(1, 1)«U(I, I) 

3650 

DO  30  J*1,I 

3660 

30 

33*53*01 U,I)»U1(J,1) 

3670 

S3*S0»T(»3) 

3660 

17  (8(1,1), GT,0)  S3*-S3 

3690 

54*1,/SURT (2,*S3*(S3»8(1,1 ))) 

3700 

Q1(N*2,I)*SM»(83»B(I,J)) 

3710 

DO  MO  J*l,l 

3720 

MO 

81  (J,1)B*SM«U1 (J.l) 

3730 

81(12, 1)»S3 

3700 

17(1, EO,N)  bO  TO  60 

3750 

00  70  J*I2,n 

3760 

81*0(1,  J)*U1 (N42,I) 

3770 

00  50  6*1,1 

3780 

50 

Sl*bl*bl (R,J)*U1 (6,1) 

3790 

SI**2,*S1 

3800 

DU  60  6*1,1 

3610 

60 

01(6,J)*Ul(6,J)«Sl*bl(4,l) 

3620 

70 

81 (J*l,l)*8(l,J)*Sl»Ul(N*2,I) 

3630 

60 

CONTINUE 

1 


•  '  • 


C7 


HfcSINV 


CON  T 


Ihi^iku  05/20/02 


FlLf  PACE  NO 


iauo 

Ht  TU»N 

3»5o 

END 

3000 

SUeHOUTINt  OACftSUb 

3070 

INtt&EN  t 

3060 

CO.NGN/Zl/fc ,n,n/Z3/N3 

3090 

CO0"ON/2A1/U(05,3O J/2A2/01 { 32 ,30)/2A5/Hl C31), PI (29) 

3V00 

OlNtNSICN  C(60) 

391  OC 

CALCULMt  C 1  ,  C2 , 

3920 

00  10  1«1»» 

3930 

10 

C (I )»H1 ( 1 ) 

3900 

00  00  lal'M 

3950 

si«ca)*uc*i#n 

3900 

DO  20  Jal.l,*' 

3970 

20 

S1«S1»CIJ)*0(J.I) 

3960 

810*2. *81 

3990 

cm  0cm*s>i*u("M#i) 

0000 

00  30  J * I ♦  1  #  n 

0010 

30 

C(J)0C(J)+S1*U(J,  I) 

0020 

00 

CONTINUE 

0O3OC 

CALCULATE  C3,C2,C0, 

0000 

DO  50  X>1 |N 

0050 

50 

CCN.IJ0O 

0000 

00  00  I ■ 1 i N 

0070 

61061  <N.2*n*C(Il 

0060 

00  60  Ja 1 f 1 

0090 

00 

8 1 «8 1  ♦(,  ( "♦  J  )  »U  1  CJ,1) 

0100 

5la.2.*Sl 

0110 

C(l)aC(l)«51*Ul(N*2«n 

0120 

DO  70  Ja  1  *  I 

0130 

70 

C(N.J)aC(N*J)*5ta61(J,l) 

0100 

00 

CUNT  1 N  U  L 

015OC 

CALCULATt  CELTA.P. 

0100 

DU  05  lal.N 

0170 

05 

PI  (1)00 

0160 

P1(N)0C(N)/61 INtl »N J 

019  u 

Pl(N.l)*(C(N.l).6l(N*l»N.l).PlCN))/«l(N,N«l) 

0200 

DO  100  I  *  3  ,  N 

0210 

JaN.1.1 

0220 

6  1  a  0 

0230 

CO  90  A8J.1.N 

0200 

90 

8 1 atl «G 1 (A«1«J)*P1  (Ki 

0250 

100 

Pl(J)a(C(J).51)/Ul (0.1, J) 

0200 

HtTUHN 

027  b 

ENC 

0260 

SUBROUTINE  OUTPUT 

0290 

INTIGtN  E 

0300 

DI«ENilUN  52(100), C(100),S52(lbQ), 53(100} 

0310 

CO«"ON/2l/E,>',N/22/DtU*,SPAL/Z0/ll,N’‘S,0N8C/Z5/I* 

0320 

CO.MUN/ZA0/N(3t ),m2(31)/ZA3/P(29)/Zao/5n(30) 

0325 

1 

A  UNPA T ( V  ) 

0330 

P9 I N I  100,11 

0300 

100 

FORMAT (///•  ITtHATlON  NO , " , 1 X , J 2/ / ) 

0350 

PNJNT  2b 

0300 

20 

FURN*T(*L«YtN  NU,",0X,*TNICNNt58",3X,"  RtSlSTIVITT" 

0370 

*9"T»It»*RES,3X,9xTr'10A/HtS/) 

I 
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8300  DU  80  I»l#E*l 

8390  J« I 

8800  D10P(1)*P(1+E*1) 

88 1 U  D2«P(1)/P(IYE»1> 

8820  PM J N T  30,J,P(n,Pa*E»l),0l#02 

8830  30  FORMAT(8X,l2#i2X#F0,2,5X#f  0,3 #0X,F 0 ( 3 # 8X ,F 0 ,3/ ) 

8880  40  COMINUt 

8850  PMJNT  50#  E#P(N) 

8890  50  FURMAT(8X,I2,23X,F0,3//) 

8870  IF(IX,Nt,l)  00  TO  5b 

8800  PKJNT  53 

8890  53  FORMAT(/10X,"N»,0X, "MODEL  RhC ■ # 3X , "F I tLD  MHO"//) 

8500  60  TO  75 

8510  59  X«SP*C 

8520  DO  90  I ■ 1 # M 

8530  0N  ( I )*tXP (X  ) 

8580  90  X8X9DEUX 

8550  PRINT  70 

8590  70  FORMAT (/15X#"SPACING*#3X#"MQDEL  RHO"  #  3X  # "F ItLD  MHO"// ) 

8570  75  DO  90  lal#M 

8500  PRINT  0O,8N(1),H(I),R2(1> 

8590  00  FORMAT(t8k#F0,3#3X#F0li#3X<F0<3) 

8900  90  CONTINUE 

8910  PRJNT  1 1 0  #RMS 

8920  110  FORMAT (//10X# "RMS  ERROR  ■» , ft , i//// ) 

8921  PRINT,  "PLOT  INITIAL  MODEL  OH  BEST  FIT  FINAL  MODEL" 

8923  CALL  PL0T2(SN#R#M) 

8928  PRINT#  "00  YOU  >*ANT  TO  PLOT  THE  FIELD  DATA  YESUJj  NU(2)" 

8925  READ  1#  III 

8020  IF (III, tU ,2)  GO  TU  12U 

8927  CALL  PL0T2(Sn#N2#M) 

8920  120  CONTINUE 
8930  RETURN 

8080  END 

8050  SUBROUTINE  SPLlNE(M) 

8090  COMMQN/22/DELX#SPAC 

8070  C0MM0N/ZA8/R(31)#R2(3l) 

8000  DIMENSION  B(30),C{30)#OELy(30}#DELSUY[30)#M(30),H2(30) 

8090  DIMENSION  02(30), S3 (30 ) # SS2 (31 ) , T (3 1 ) # X  (31 ) # Y  (31 ) 

8700  N0R 

8710  REAO  1#(X(1)#I01,N) 

8720  1  FORMAT ( V  )  ' 

8730  DO  ISO  I«l#N 

8780  150  X  ( I  )■ ALOG  (X ( I ) ) 

8750  REAO  t,(Y(I),I«l,N) 

8700  SPAC«X(1) 

8770  M«lNT((X(M).3PAC)/DtLX)*l 

8700  A0SPAC 

8790  DO  300  1 8 1 # m 

8000  T(I)*A 

8010  300  A>A+DELX 

8020  EPSLN0.OOOO1 

8030  NliNvl 

8080  DO  51  1 s 1 #  N 1 

8050  H(1)0X(I*1)«X(I) 


I 


RtSINV 


CUNT 
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Flut  PAVE  NO,  10 


8080 

51 

otcr(i)6(v(i«H-v(t))/M(i) 

8870 

DO  52  1*2, M 

8080 

M2(l)*M(I-l)*HlI) 

8000 

BCl>*.5*MCI-l)/H2CI) 

8000 

DEl8UYU)*(DEir  C I ) -DtL  Y  C I  - 1  J  J/H2CI) 

8010 

82 ( 1 )*2 ( *OtLSUY  C I ) 

8020 

52  1 

C(I)6),*DiUSUr{l) 

8050 

»2(1)*0, 

8080 

82(0)60, 

8050 

OHE 66*1 ,0717060 

8000 

5 

ETA*0, 

8070 

00  10  1*2,61 

8080 

**(C ( I )-B ( I ) *S2 (1-1 )■ ( ,5-tt ( 1 ) ) *S2 (1*1 )-82 ( I ) ) "OMtGA 

0000 

IF  ( ABB ( n  ) -E T A )  10,10,0 

5000 

0 

ET  A*ABS (* ) 

5010 

10 

S2(I)*82U)6M 

5020 

IF(ETA»tP8LN)18,5,5 

50)0 

18 

00  53  1*1,61 

5080 

5) 

S3(I)*(S2(I«1)*S2(I))/H(I) 

5050 

00  61  J*l, M 

50«0 

1*1 

5070 

IF(T(J)-X(1))50,17,55 

5080 

55 

IF  (T  < J)-X (N) )  57,50,50 

5000 

56 

IF(T(J)-X(I))  60,17,57 

5100 

57 

1*1  +  1 

5110 

VO  TO  56 

5120 

50 

*HITE(2,00)  J 

51)0 

88 

FORMAT  CIS, "TM  ARGUMENT  OUT  OF  RANGE") 

5180 

GO  TO  61 

5150 

50 

I*N 

5160 

60 

1*1-1 

5170 

17 

HT1*T (J)-X(I) 

5100 

MT2*T (J)-X(l*l) 

5100 

PROU*MT 1AHT2 

5200 

SS2(J)*S2(1)+MT1-S3U) 

5210 

DELSUS*(S2(I)+32(I+l)+SS2<J))/6, 

5220 

R2lJ)»Y(I)FMTl-0ELY(l)+PH00*0fci.Sl.S 

52)0 

61 

CONTINUE 

5260 

RETURN 

5250 

ENO 
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|0«*  RUN  *»RoSD441/PLOT5,fc  lR0bMb54*/HtSINVS,E 
20  CM*kACTER«72  PUS 

30  OIMENSION  X(lOO)>H(lOO),HA(lOO)*ASPtlOO),HASUM(10O) 

40  DIMENSION  CP(IOO), 6(100), NINV(IOO) 

SO  REaL  LL«L(100) 

00  PRUT  too 

TO  too  FOHPAT ('INPUT  SURVEY  TYPE*>1>  *ENKtk  PRUF  I L I  NO  I  2*  SCHLUMBERbt* 

•0  A  PROFlLINGj  3*  nENNER  SOUNDING)  4>  SC HLUPBERbE R  SOUNDING) 

90  »5*  POLE-  DIPOLE  * ) 

100  REAO  310*1 

110  110  FORMAT (V ) 

120  CO  TO  (1000, 2000, 3000, 4000,5000), I 

130C  1000  N|NNER  PHOFlLlNb  SURVEY 

140  1000  PRINT  120 

ISO  120  FORMAT ( * A aSP AC INC* f NUMBER  OF  POINTS*'} 

1*0  READ  1  10,  A, N 

1  TO  PRINT  130 

ISO  130  FORMAT ( 'INPUT  PROFILE  COORDINATE, RESIST ANCE  P A  IRS— X 1 , R 1 , X2 , R2  ,  , 
190  READ  110, (X(I),R(I),I*1,N) 

200  PRINT  1*0 

210  140  FORMAT ( 'IS  FACTOR  2P1  1NCLUDL0  IN  RESISTANCE  DATA  YES (1),NU12)') 

220  REaOI 1 0 , IPI 

230  IF(IPI,EC(1}F*1,0 

240  IF(IPI,E0(2)Fa*,26319 

250  DU  ISO  1* 1 « N 

2*0  ISO  HA ( 1 )*F*R (I  ) *A 

270  PRINT  1*0, A 

2S0  1*0  FORMAT ('«ENNER  PROF ILE-* A* ' , F o , 1 / / ) 

290  PRINT  170 

300  170  FORMAT(20X,"*",10X,«RMO*) 

310  PRINT  iaO,(X(I),RA(l),Ial,N) 

320  180  FORM«T(1SX,F10,4,F10,4) 

330  CALL  PL0T2(X,RA,N) 

340  PRINT  190 

350  190  F  URMAT ("ANOTHER  PROFILE  YESll)  N0(2)*) 

3*0  READ  110,11 

370  IF  (II.EQ.DCOTUIOOO 

360  IF(llaEb12)bUTU*000 

390C  2000  SCmLUMHERCER  PROFILING  SURVtY 

400  2000  PRINT  200 

410  200  FORMAT ("S*8PAC1 Nb* ) L*3PAC I Nb« )  NUMBER  OF  POINTS®  "J 

420  HEAD  110,SS,LL,N 

430  PRINT  130 

440  READ  110,(X(1),H(1),I*1,N) 

450  PRINT  140 

4*0  reao  no,  ipi 

470  IF(lPl,EU,l)FaO,S 

480  IF(IP!,E0,2)F*3,141S9 

490  DO  210  I ■ 1 ,  N 

SOO  210  RA(I)aF*R(I)*SS*((LL/SS}**2  ■  0,25) 

SIO  PRINT  220,SS,LL 

520  220  FORMATCSCMLUMBEHBER  PROF ILE— L«" ,F*.  1 , "I S»* ,F *,  1  // ) 

530  PRINT  170 

540  PRINT  l«0,(X(I),RA(l),lal,N) 

550  CALL  PL0T2(X,HA,N> 


B 


0 


B 


RESOAT 

560 

570 

SSO 

590 

600C 

3000 

610 

3000 

620 

230 

630 

640 

240 

650 

660 

260 

670 

660 

690 

270 

700 

710 

720 

7)0 

740 

750 

760 

260 

770 

760 

290 

790 

600 

300  1 

610 

620 

310 

830 

640 

650 

660 

670 

660 

313 

890 

315 

900 

910 

920 

930 

940 

950 

317 

960 

970 

316 

960 

990 

1000 

1010 

1020 

1030 

1040 

325 

1050 

1060 

316 

1070 

1060 

319 

1090 

320 

1100 

COST 
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FILE  PAUL  NO i 


PRINT  140 
REAO  110,11 
IF (II.EU,  ilGUTU  2000 
IF(1I,EU,2)GOTO  6000 


FORMAT ( ■ INPUT  SOUNDING  LOCATION  INF ORMAT ION, UP  TO  72  LMARACMTtRS"  ) 
RtAO  240,  POS 
FORMAT (A72) 

PRINT  260 

FORMAT ('INPUT  NUMBER  OF  DATA  POINTS") 

READ  110,  N 
PRINT  270 

FURMATCINPUT  A-SPACING, RESISTANCE  PAIRS— Al,Rl,A2,H2,,,t«) 

READ  110, (ASP(I),N(I),I«1,N) 

PRINT  140 

READ  110, 1P1 

IF ( IP  I , EG, 1 )F  6 1 , o 

IF (IPI, EG, 2)P»6, 28119 

DU  2S0  161, N 

RA(I)B  F*A8P(1)*H(1) 

PRUT  290 ,  PUS 

FORMAT ('nENNEH  SOUNDING '//A72//J 
PRINT  300 

FUHPAT (16X,*A",SX,"RMU*J 
PRINT  310, (ASPtI), RA(I), 16J, N) 

FURmATU0X,F10,4,F10,4) 

PRINT, 'OU  YOU  RANT  LINEAR (TYPE  1)  OR  LO&mLUUCTYPE  2)  PLOTS' 

HEAD  110,111 

IF (1 1 1 .EU.2 J  GU  TO  313 

CALL  PL0T2(ASP,RA,N) 

GU  TO  315 

CALL  PL0TLL(*SP,HA,N) 

PRINT, 'DO  YOU  RANT  A  CUMULATIVE  SO*  PLOT  Yt5m,N0(2)* 

READ  110,  KK 
1F(KK,EU,2)  GO  TO  319 
HA8UM(1)6RA(1) 

DO  317  I«2,N 

RASUR(I)6HASUM(I-1)+RA(I) 

CONTINUE 

PRINT  31«,HA5UMIN) 

FOHPATt'PAX,  CUMULATIVE  RESISTIVITY  VALUE  ■  ',FB,2) 

PRINT, 'PLOT  CUMULATIVE  RESISTIVITY  VS,  A-SPACING  DATA' 

CALL  PL0T2(ASP,RASUm,N) 

PRINT, 'DO  YOU  RANT  AN  INVERSE  RESISTIVITY  PLCT  YES ( 1 ) ,NU (2)  ' 

READ  1 1 U , KKK 
IF (KKK,EG,2)  GO  TO  319 
DO  325  161, N 
RlNV(l)»l,/CF*R(D) 

PRINT  316,  R 1 N V  t N ) 

FORMAT  (//'MAX,  value  OF 
CALL  PL0T2(ASP,RINV,N) 


INVERSE  RE5ISTIVITY  6  ',F10,6//) 


FORMATCDO  YOU  RlSM  TO  INTERPRET  DATA  YES  ( 1 ) ,  NO  (2)  " ) 
READ  110,  JJ 


D2 
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1110  1F(JJ,EG,2)  GO  Tu  6000 

1120  INDM2 

IliO  SPAiASPU) 

1140  iNDxaO 

1150  CALL  RESINVS(ASH,Ha,n,INDE,Spa, JNUX) 

1160  PRINT  330 

1170  330  FORMAT ('ANOTHER  SOUNDING  YES(l),  NU  C2 ) ' > 

1100  H£AO  110, JJ 

11«0  IFCJJ.EU.l)  CO  TO  3000 

1200  IFCJJ.EQ.2)  GU  TO  6000 

1210C  4000  8CHLUM8ERGER  SOUNDING 

1220  4000  PRINT  230 

1230  RtAO  240, POS 

1240  PRINT  140 

1250  READ  110,  1PI 

1260  lS(IPl.EG,i)  F»0,b 

1270  I»f(IPI,tU,2)  F«3, 14159 

1280  4010  PAINT  4020 

1290  4020  FORMATl'INPUT  NO,  OF  DATA  POINTS') 

1300  NEaO  110,  N 

1310  PRJNT  4030 

1320  4030  FORMATl'INPUT  S-SPAC1NG,  L-SPAClNG,  RESISTANCE  DATA') 

1330  READ  110, (3(1), LCD, P(I),  I«l,N) 

1340  DU  4040  1 4 1 , N 

1350  4040  HA(I)«F*R(I)aS(I)*((L(I)/S(1))«*2  •  0,25) 

1360  PRINT  4045,  POS 

1370  4045  FORMAT (///'SCHLUMBEHGEH  S0UN01NG'//A72//) 

1380  PRINT  4050 

1390  4050  FURMAT(20X,"3*,5X,*c",10X,,,RMO*) 

1400  PRINT  4060,(S(I),L(I),RA(I),  I»1,N) 

1410  4060  FURMAT(16X,F5,1,2X,F6,1,6X,F 10,4) 

1420  PRINT, '00  TOU  KANT  TO  PLOT  APPARENT  RtSISTIVlTY  VS,  (."SPACING' 

1430  PRUT,  'LINEAR(TYPt  1)  UR  LOG-LOG  ( T  YPt  2)' 

1440  RE AO  110,  NNN 

1450  IF(NNN.EU,2)  GU  TO  4065 

1460  CALL  PL0T2(L,HA,N) 

1470  CO  TO  4067 

1480  4065  CALL  PLUTLL (L ,R A , N ) 

1490  4067  PRINT, *00  YOU  -ANT  TU  INTERPRET  DATA  YES ( 1 ) , NO (2 ) — — 

1500  fc  IF  SU,  ONLY  ONE  S-VALUE  SHOULD  bfc  IN  UATa  UR  THERE  SHOULD 

1510  6  BE  NU  JUMPS  IN  ThE  SOUNDING  CURVE' 

1520  READ  110,  III 

1530  IF(IH,EU,1)  GO  TU  4060 

1540  4070  PRINT,  'DO  YOU  "ANT  TU  INPUT  UATA  FUR  ANOTHER  SUUNDING' 

1550  READ  UO,JJJ 

1560  IF ( JJJ,EO, 1 }  GU  TU  4000 

1570  GU  TU  6000 

1580  4060  CUNTINUt 

1590  INQt*l 

1600  3PA«LU) 

1610  INQXsO 

1620  C*tL  RESINV8(L,RA,NilN0t,SPA,INDX) 

1630  GU  TO  4070 

1640  5000  CUnTINUE 

1650C  PULb-OIPULE  SURVEY 


RESOAT 


COhT 
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1660  PRINT  5010 

1670  5010  FORMAT ('PULt-OlPOLE  CURRENT  ST  MlDrt/PHOULl  D  iNfcCT  lUN  I NF  UR^  A  T  i  u*> 
1660  6  UP  TU  72  CHARACTERS') 

1690  REaO  240,  PCS 

1700  PRINT  140 

1710  REaO  110, 1PI 

1720  IF<IPI,EU,1)  P ■  1  •  0 

1740  IF(IPI,EQ,2)  F«6, 28319 

1740  PRINT  5020 

1750  5020  FQrMATI'INPUT  POTENTIAL  ELECTRODE  SPACING  AND  NUHBEN  OP 
1760  k  data  values') 

1770  head  110,PP,N 

1780  PRINT, "lNPuT-»OISTANCt  TO  FIRST  POTENTIAL  ELECTRODE,  KE6IST*NCE 

1790  k  PAIRS" 

1800  RCaO  il0,(CP(I),R(I),I>l,N) 

1610  PRINT, 'P0LE»0IP0LE  SURVEY' 

1820  PRINT  5025,  POS 

1850  5025  F0RMATI//A72///) 

1640  PRINT  5027 

1850  5027  P0RMATU4X,'C1P1,C1P2',IQX,*RH0*//) 

I860  DO  5030  I»l irN 

1870  RA(l)6(F*CPCI)«(CP(I)*PP)/PP)*Ra) 

1880  PRINT  5040,  CP(I),CP(I)«PP,HA(I) 

1890  5030  CONTINUE 

1900  5040  FORMAT (10X,Fo,  1  , F6 , 1  ,5X,F 10,4) 

1910  PRINT,  "PLOT  APPARENT  RESISTIVITY  VERSUS  X— X  AT  MIDPOINTS 

1920  k  OF  PP»LOCATIONS* 

1930  DO  5050  !■  1 , N 

1940  5050  X ( I ) «CP ( I ) fPP/2 
1950  CALL  PL0T2(X,RA,n) 

1960  PRINT, "DO  YOU  WANT  TO  INPUT  ANOTHER  DATA  SET" 

1970  HEAD  110,11 

1980  IF ( 1 1  ,EU  ,15  GO  TO  5000 

1990  IF (llaEU,2)  GO  TO  6000 

2000  6000  CONTINUE 
2010  STOP 
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TIDES  1  4 1 26 1 20  0 5/2e/82  Htfc  PAGt  NO,  1 


5*6  RUN  *IR0S0«4l/PLCTS,E 

IOC  THIS  PROGRAh  COMPUTES  T «fc  THEORETICAL  GRAVJTT  TIDE  FQ*  any  puInT 
20C  On  the  SgHAACt  Of  A  RIGID  EARTh  AS  a  FunCUun  CF  T1“E, 

Joe  a  COMPLIANCE  FACTOR  OF  1 . 1 0  HAS  BltN  iNCLUOtO, 

40C  INPUT  OAT*  ARE  IN  FREE  F IELO  FORMAT,,, 

50C  INPUT  DATA  1CENT IF 1EO  BY  COMMENTS  JUST  PRlU"  lu  HEAD  STATtHtNTS, 

60C 

6b  Character  >SXInpuT(3) 

TO  OImEnSIUN  DATPM(12),GCS000) 

72  REAL  m,NlTE (5000 > 

75  OAT*  XINPUT(1),XInpuT(J)/Ih/,Ihi/ 

80  OOuBtE  PRECISION  CDEGTR.CM I N TR , C SEC TR , PI2 , SC  1 , fc I , RC J , ANC I , S, r * m, 

90  »Pl,AN#ST0R»T,SHINP,S2HP,SHlNN,HHlNPl,5MINP2,S><lNHi:,CHl,CHIl,ALSuN* 

100  AAlPrA, XI , SIGMA, ALmoCN,AHG6,AHG7, ARGO,  AM&IO.E l,Ell.E12.tli,C,o), 

110  SAPR|ME,APRIM1 »OISTES<OISTER,OAYSl,OAYS2tOATSJ,DAV3o,UAYSb,OATS6 

115  MbO 

120  CDEcTRal ,74512925 1 R9mJU>2 

ISO  CmInTRb2, 908862086660*4 

140  CSECTR»«,8«8l J6811D-6 

150  DATA  C.C1.E/J, 84402010,1, 495011,, 05490/ 

160  DATA  AHU,AHH00N,*HSuN/6,t7«t-8,7, J5J7E25, 1 .991E3J/ 

170  DATA  Ell«£I2iE13/l,6751040*2,4,16CD*5,l,260a7/ 

180  RATIO*, 074604 

190  UMEGAa2J,452«CDbeTN 

200  SHALLAao,37827E8 

240  PI2a6,283t853072D0 

250  SC  la  1 1084  1 1 ,200 

260  PC  la 3925 1 5,940 

270  HClal29o02766,1300 

260  ANCl*ae29|2,63Ui' 

313C  INPUT  N*-E  OF  OUTPUT  J*’*  FILE 
J25  c*ll  attach;4.x;nput, j,c,,) 

326  80  FORMAT  (V) 

326C  Input  nu"HER  OF  'IDE  0»T»  SETSTNCC-P)  ANU  Tint  lNCRt"ENT Imm) 

330  REAO  10.  NCCMP.mm 

340  Do  400  JJS..NCOMM 

350  PRJNT  JO,  JJ 

351C  INPUT  LATITUDE  In  OEbHEES(SLATO)  AND  DECIMAL  *> I NUTES ( SL AT M )  ANC 
354C  SIMILARLY  for  LUNOtTUOEtSLONOD.SLUNUMJ,  input  ELEVA110N  in 
355C  METERS(SELEV1 ,  In^uT  c*TE  In  mon T h (OA TE*  ) ,  OAYIDATEC,  anu 
357C  YEAR(OATtY),  INPUT  STARTING  TI»E  In  HULKITImem)  and  h I  NUT E  l  T I  hum ) 
J58C  GRtENalCH  TIRE, 

360  RE*C  20 .  SLATO,SL*T«,5L-NC0>SLONG-,SELEY»DATEM, DATED, UATEY, i  ImEh 

370  A.TImEm 

J75C  INPUT  TCTAL  NU-btR  C‘:  TI-E  INCREMENTS  TO  BE  L ALCUL * Tt 0 ( NTCT AL ) 

376C  THUS  THf  TOTAL  LENGTH  UF  TIDAL  RECORD  TC  BE  CALCUL*TED«hm  A  nTUT*L 

360  RE*C  10,  NTOTAL 

385  «.RITE  (4,5)  nTUTal 

390  00600  *K*1, NTOTAL 

400  IF  (*K,EU,  J  )  GO  TU  75 

410  “|Nlte (MM )»M1NUTF (**•! JAMH 

420  DAYS5aHlNuTE(KK)/(24,*60.) 

430  60  TO  350 

440  75  0AVS2B0, 

450  ALAMB0a8LAT0*C0EGTNASL«TM*CMlNTR 
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FILE  PAGE  no 


I 


2 


p 


I 


1 


p 


E 


460 
470 
480 
490 
500 
510 
520 
5  JOC 
540 
550 
560 
570 
580 
590 
600 
610 
620 
6)0 
640 
650 
660 
670 
680 
690 
700 
710 
720 

7) 0 
740 
750 
760 
770 
780 
790 
BOO 
BIO 
020 

8) 0 
840 
850 
860 
870 
880 
890 
900 
910 
920 
9)y 
940 
950 
960 
970 
980 
990 
1000 


ALOnGbSLONGOaSLONGM/oO, 

ELEv*SELE  V*10Q, 

HUNTH40ATE* 

1 D A Y  *0 A  T 1 0 
IYEANaOATEY 
lMUL«*TlMfcH 
MlNl/TECKtJaTIHEM 

CALCULATE  T  (NUHBEH  OP  JULIAN  CENTURIES ) 

DATA  OAYPM/31a,28a,31a,30a,31.,30a,3l,,)la,30a,3t,,3ua,ila/ 

DO  100  1*1/12 
JS«P0NTH»1 

IPCJS.EO.O)  GO  TO  150 
100  0ATs2aUAY82AUAYP»Un 
150  0AYS)*10AY«1 

DAYS4»lhOUR/24, 

DAYS5«MINUTE(KK)/ i24,«o0, 1 
DAYS1«IYEAH»365, 

NYEaR»IYEAR/4 
8J«JYEAR/4,»NYEAP 
I P ( S J . GT , 0 1  GO  TO  200 
IF  CpONTh»2)  300 / 300/200 
200  DAYS6aNVtAR 
GO  TO  350 

SOO  DAY86BNYEAM.I  , 

350  CONTINUE 

ST0R*DAYS1*DAYS2aDAYS3aDAYS«aUAYS5aDAYS6*,5 

TbSTOR/36525, 

S*27  0.00*CUEGTH  +  26,OUi>CHINTW'»l4,72UO»CStCTR*  l  (,006800*LSECTR«T* 
89(0400*CSECTH}*T*13ia.00*P12«SCl*CSECTH)*T 
Pa334aD0*CDEGTHtl9,OO*CMINTN«40,6700*CStCTH»( ( (.,045O0)*LSEC I4*T 
4-37, 2400 *CSECTP } *T ♦ 1 1 , 00 *P 1 2 aPC 1 «C St C T H ) *T 
Ha279,00*CDEGTH*4l tDO«CMINT«A48,04D0»tSECTH»(l , 0B9D0*C SEC TR • I ♦ 
»MCi*CSECTP)*T 

ANB259,OO«CDEGTSi*10,D0AC*'INTRt57,1200»CStCTR4C(,00e0O*CStCTB«T4 

47,58O0*CSECTH)*T-5,D0*PI2«ANCl*CStCT».)«T 

PlB261,DO«COtGTN*13,00«CPlNTR»l5,00*CStCTh*C(,01200*CStCTP*T* 

»l,63D0«CStCTH)*T*el89a0300*CStCTR)*T 

tlBtll«(tl2AE13*T)*T 

AUG  1 « 1. / C !.♦, 0  0  67  38 •{ SIN < AL **60 J • *  2 ) ) 

CAPcaSUHT (AhGlJ 

KADIUS*CAPC*S^ALLAPtLEY 

APWI*E»la/(C«(l.-t**2)) 

APHjNlal a/(Ct*(t,»tl**2)) 

S4InP*8«P 

S2hp*S*2*m+P 

8PlNNab«P 

H8lNPl*h»Pl 

S»lNP2*2,«3HINP 

SmINH2«2  « *3*1 nm 

OISTEMala/CAAPHlME*t*OCOS(5"INt')*AP«IMt*  1 1 *«2 ) «OCOS C 5" INP2  ) 

*M5«APHlMfc»R*TIu«t*0CUS(32HP)/a,*APRIMt»CRATlc**2)*UC0S(SPINH2) 
DI3TES«1 ,/C1aAPHJmi«E1*UC0S(*FINP1  ) 

TZtHO«lHQlM**INUTE  (KK1/00, 

SMALLTa(15,*(TZkHU»12a  ) -ALONG ) *CDtGTH 
C«I laSNALLTAH 


I 


E2 


•  9  • 


•  •  •  • 


T  IDtS 


COST 
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b 


t 


I 

i 


! 


1010  ALSUN«H*2,  «E1  «DS1N  (HM1NH1  ) 

1020  AHG2b5, 145*C0tGTK 

10  30  ANG3«C05(U"fcGA)*C.USl*Hl>2)«5INC(J"tt»*J»4IM*RG2)*0C0StAN) 

1040  A  I  a ARCOS ( AHG3 ) 

1050  AHG«*SIN(ARG2)«08|MAn)/SIM(A1  ) 

1060  ANL«AHS1N(AHG4) 

1070  CHI»84AULT+M»ANU 

1080  8Al.PMAaSIN(0MEGA)*0SIN(AN)/SlN(AI> 

1090  CALPHA«DCOS(AN)»C031ARU)*08IN(AN)*SlA(ANU)»CCSlCRtGA) 

1100  CAI.PH1*  1+CALPhA 

1110  AUPHAa2*ATAN2(SALPhA,CALPHl) 

1120  XlaAN-AUPHA 

1130  SlGHAaS-Xl 

1140  ALMQ0NBSIGMA+2,»E«0SIN(8MIRP>+5,AtE**2)«DSlNCSMlNP2)/4, 

1150  K+15«*KAT  I0*E*DSIN(S2HP)/4,+l  1  ,*(RaT10«o2)*DSIR(SmInh2)/B, 

1160  aRg5*(0M£GA/2,) 

1170  AHG6«*L8UN»CHI 1 

1180  ARG7bALSUN+CMI1 

1190  CPMl»3IN(AL*MBO) *81* (OMEGA )*08IN(ALSUN)+CUS(ALAMBD)*UCUS(AnG5)**2 

1200  6aDcOSCaRG6)  +  (SIn(aRG5)*«2)«OCOS( ARG7) )  ) 

1210  AKG8a(AI/2.) 

1220  AHG9aAL*"00N«CHl 

1230  ARGlOaALMOONACHl 

1240  CThETAaSINlALAMBO) AS  I  N  (  A  I  ) +0S  I  N  (  A1.MOON  ) +CUS  (  ALAMBO  )  »  ( t CUS ( A"G8 ) * *2 

1250  6)  A(JC0S(AHG9)  +  ( SIN  ( ARG8  )  «  «2  )  *UC08  (ARUlO)  ) 

1260  GMiAMUAAMMUON*HADIuSA(i,« (CTMET A««2)*l, )*(DISTEM»a3)+3a(AMU«AmmUCN 

1270  Xa(r ADIUSAo2)i(5,+(CTMETAa«3)«3,AC THETA) ) a (m STEM* »4)/2, 

1280  GMaGMolooo, 

1290  G3aAMU*AMSUN«HADIuS«(3,*<CPHl**2)-l ) •  10 1  ST t S* *3  )  » 1 000  , 

1300  GZEKObGM+us 

1305  G(Kk)sGZERU*1 160, 

1306  *1*1  +  1 

1310  600  mRiTE  (4,901  4,**lMjTt(KK)#G(R*') 

1320  PHJNT65,  SLATU,SUAT*,Sl.ONGU|Sl.ORG«  , DA TEM , DA  TED , DA TE 7 , TI "EH# 

1330  MIME* 

1340  PRINT  70,  CG(LL),  LL«1.NT07*U 

1345  CAUL  PLGT2(*INUTt,G,NT0TAU 
1350  400  CONTINUE 

1355  5  FORMAT (14) 

1360  10  FORMAT (V) 

1370  20  FORMAT (V) 

1380  50  FORMAT (3F15,5) 

1400  65  FORMAT(1X,F3.0,F5,2,F4,0,F5.2,5F 3,0) 

1410  70  FORMAT('0',i2Fo.l,/12F6,l) 

1415  90  F0RMAT(I3,I5,F15,3) 

1420  STOP 
1430  ENO 


E3 


•  • 
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i 


TALGRAD 
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10»»  HUN  *|HoSD441/PLCT5,E 

20C  TALGHAD  COMPUTES  GRAVITY  AND  &RXVITY  GRADIENT  PHUFILES  OVtH  1  «0» 
30C  DIMENSIONAL  POLYGONAL  CR08S-SECUUN  MODELS 

40  DIMENSION  XXX(40),XX(200),X(40),Z(40),H(4Q),A(40)*B(4U), 

SO  68(80), 0(40), V(40),T(40), 4(40), bG (40), CTCdO, 200), GTT (10,200), 

40  ABA(200)»H(10),DELGTZ(200),DELGTX(200) 

70  DIMENSION  G(200),XHG(2u0),AS(2Ub) 

75  DIMENSION  OELGTZP (200 ) 

80  PRINT  ,*K,0ELX,0ELZ,2MAX” 

90  READ  10,  K,DELX,DELZ,ZMAX 

100  10  FORM*T(V) 

tlO  DO  20  M«t, K 

120  20  XX(M)4DtLX*(M*l ) 

130  PRINT  , "NPOLY* 

1 40  HEAD  30 , NPOLY 
150  30  F0RM*T(V) 

160  PRINT  40 

170  40  F0RMAT('01MEN8I0N  IN  KPT (TYPE  1)  OH  ML T EHS ( T YPt  2)*) 

180  READ  50, NN 

190  SO  POHMAT(V) 

200  IP(NN,EU.l)  C44.067 

210  IP(NN,E0,2)  C»13,34E-3 

220  DO  70  llai,10 

230  DO  60  NG41,2O0 

240  60  GTT(ll,NG)40,0 

250  70  CONTINUE 

260  M(l)40(0 

270  00  10Q0  1141,10 

280  DO  245  L*l, NPOLY 

283  PHINT  73, L 

285  73  POHM*T('POLYCON  — *,I2/) 

240  PRINT,  •DfcLHQ.N" 

300  READ  80,  DELRO , N 
310  80  FORMAT (V  ) 

320  PRINT  ,"X1,Z1,,,(.,XN,ZN" 

330  READ  100, (XXX(M),2(M),  m«1,nj 
340  100  FORMaT(V) 

350  IF(II,GT,l)  GO  TO  145 

360  PRINT  110 

370  110  F0RM*T(//25X, ‘STATIONS  PCLYG,  S1DE5  DENSITY'/) 

380  PRINT  120,K,N,OELNU 

340  120  FURM«T(I30,I10,F20,6//) 

400  PRINT  130 

410  130  F0RM*T(21X,6MVERTEX,7X, 12MDISTANCE  ,4X,4hOEPTN  ) 

420  PRINT  140, (M,XXX(M)#E(N),**i,N) 

430  140  FURM«T(I25,2F20,6) 

440  145  NN«N«1 

450  XXX(NN)4XXX(1) 

460  Z (NN)»Z ( 1  ) 

470  150  OU  ItO  Nb4l,200 
480  160  GTC(H,NG)4U,0 
440  DO  240  NL»1,K 

500  DU  170  141, NN 

510  X(I)aXXX(I)>XX(NG) 

520  170  COnT 1  Nut 
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930  00  280  J»1,N 

340  JJ«J41 

330  R(J)bXIJ)»424(Z(J)4N(II))**2 

530  R(  JJ)»X(JJ)*«24(Z(JJ)4Htm  )««2 
570  A( J)«X( jj)»X(J) 

580  aiJJaZlJJWU) 

530  8tJ)»XtJ)*U(JJ)4MlIX))-X(Jj)«lZ(J)4MU) ) 

800  U ( J  JaA ( J  )  »*2  ♦  BIJJ*«2 
610  V(J)a0.5*AU0C(H(JJ)/H(J)) 

620  T(J)BX(J)*X(JJ)4(Z(J)«H(m)4(2(JJ)4NClI)) 

630  IP(8(J))  180,250,200 

640  180  irctcJJJ  190,230,220 
650  190  aIJ)a*3,14 15927  4  AT AN (S (J 1 / T ( 0  )  } 

660  CO  TC  260 

670  200  IF ( T  ( J ) )  210,240,220 

660  210  «(J)a3, 1415927  4  AT  AN  I S  (J) /T  l  J >  ) 

690  CO  TC  260 

700  220  "(J)aATAN(8(J)/T (J)) 

710  GU  TO  260 
720  230  R I J )a*l ,570796 
730  CO  TC  260 
740  240  *IJ)al, 570796 
750  CO  TO  260 
760  250  N ( j )aO , 0 

770  260  CC(J)a(9(Jl/u(Jn«(tt(J)«V(J)«AU)*»(J>) 

760  270  GPa»C*DELRO*GGIJ) 

790  CTC(II,NG)aGTC tlI,NG)4GPA 

600  260  CONTINUE 

610  GTT III.NG)»GTTIII,NC)4CTCIII,NG) 

820  GInG)»GTTIII,nG) 

630  290  CONTINUE 
640  295  CONTINUE 
850  PNINT  300,  H  C  X  Z  3 

660  300  FURMaTI'DO  YOU  a AN  t  TU  PRINT  6Z  f OR  M*  '  , F 6,2 ,  •  — YtS I 1 1 , NU (2 ) • i 

670  READ  30, wh 

660  IF tMP,EUa2)  GO  TU  305 

690  PRINT  310,  HIII) 

900  310  FURHAT  I//'  — —  •ELEVATION  a  *  ,F  1  0 ,6,  '  —  —»// ) 

910  PRINT  320 

920  320  FURRaTUSX, 'STATION*, 10X,»X»,10X,'GZ(X)',//) 

930  DU  1500  Nb*l,K 

940  1500  PRINT  330, NU,XX(Nlj), (,TT(II, NG) 

930  330  FORMaTI17X,I3,6X,F10,6,5X,F10,6} 

960  305  CUNTINUE 

961  PRINT.  ’DO  YOU  "ANT  PL0T6  OF  GRAVITY  PROF  1LE8— YES  1 1)  ,  nu(2)" 

962  Rt AD  10,  NN 

963  IF (Nn.EU.2)  GO  TU  333 

970  PRINT  331, MUD 

980  331  FURMaTI'PLOT  GRAVITY  PROFILE  FOR  H»',F6,2/> 

990  CALL  PL0T2 ( XX ,G , N ) 

1000  333  IFlMtlD.GE.ZMAX}  CO  TO  340 
1010  HlII4l)PH(II)4DtLZ 

1020  1000  CONTINUE 
1030  340  PRINT  350 

1040  350  F  URmAT ( 'DO  YOU  "ANT  TO  CALCULATE  6HAVI1Y  GRADIENTS 
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1 050  8TYPE  1  FOR  YES #  2  FOR  NO') 

1060  HEAD  360,  NON AO 
1070  360  FORmATIV) 

10S0  IF  !nGHAD,EU,2)  UU  TO  5000 

1090  363  PRUT  370 

1100  370  FORmATI'INPUT  DESIRED  INCREMENT  VALUES  FDR  HORIZONTAL  and'/ 

1110  t'VERTICAL  GRADIENT  VALUES,  UELXX  AND  DELZZ ,  IN  INCREMENTS'/ 

1120  «*0F  DEUX  AND  DELZ  —  ') 

1130  READ  380,  DELXX,  QELZZ 

1160  380  FOHRAT(V) 

1150  IX«OEUXX/DELX 

1160  IPIOELZ.EO.O.O)  GO  TO  505 

1170  IZaoELZZ/DEkZ 
1180  DO  2500  NG«1,K 

1190  2500  0ElGTZ(NG)b(GTT(1,NG)«GTT(IZ*1,NG))/DELZZ 
1200  PRINT  390,OELZZ 

1210  390  FORMAT!'—— -DELTA.  Z  «  '  ,F  1 0 ,6// 1 5X ,  'ST  AT  ION  » ,  1  OX  ,  'GZ ,  Z  '// ) 

1220  DO  400  NG«1 ,K 

1230  400  PRINT  500,NG,XX(NG),0ELGTZ(NG) 

1240  500  F0KMAT(17X, 13, 8X, FtO, 6, 5X,F10, 6) 

1250  PRINT  502 

1260  502  F ORM  AT ( 'PLOT  VERTICAL  GRADIENT  PROFILES') 

1270  CALL  PL0T2(XX,UELGTZ,K) 

1280  505  PRINT  310 

1290  510  FOHmaHTINPUT  VALUE  OF  H  FOR  mhICH  ThE  HORIZONTAL  GRADIENT'/ 

1300  8*1S  DESIRED  IN  INCREMENT  OF  DELZ  * ) 

1310  READ  520, HZ 
1320  520  FORMAT (V ) 

1330  NZapZ/DELZ 

1340  IF (DELZ.EQ.O.O.OR.HZ.EG.O.O)  NZ«1 

1350  DO  3000  NG«1,K<1X 

1360  DELCTX(NG)8(GTT (NZ,1XANG)«GTT (NZ.NG) ) /DELXX 

1370  IF(1X*NG*1,GT,K)  GU  TO  530 

1380  3000  CONTINUE 

1390  530  PRINT  340 , DELXX 

1400  540  FORMAT!'— — DELTA-X  a  ' ,f 1 0 ,6// 15X ,  'ST AT IUN * , J OX , 

1410  8'GZ , X '// ) 

1420  DO  550  NGa  1  , k 

1430  PRUT  360,NC,1XVNG,0ELGTX!NG) 

1440  XHG(NG)a(XX!IX«NG)«XX!NG))/2, 

1450  IF  !  J  X*N6A 1  i  GT , X  )  GO  TO  551 

1460  550  CONTINUE 
1470  551  PRINT  553 

1480  553  F  ORM  AT  !  f  PLOT  HORIZONTAL  GRADIENT  PROF  ILE— PLOTTED  AT  M1DP01MS'/ 
1490  6, 'OF  DELXX  INTERVALS') 

1500  KkbrMX 

1310  CALL  PL0T2!XHG,0ELGTX,MX) 

1320  560  FOHMATIlSX.Uf'.'.ll.OX^lO.O.SX^lO.O) 

1530  PRINT  362 

1540  562  FORMATl'DU  YOU  nANT  GRADIENT  SPACE  AND  SU,  UF  MODULUS  OF  ANALYTIC'/ 
1550  6, 'SIGNAL  PLOTS  —  IF  SO,  IX  MUU8T  EUU AL  2  —  YESH),  N0!2)') 

1360  Ht AO  580,  MMM 

1370  IF!mmm,EU,2)  GO  TU  570 

1580  00  565  1 ■ 1 , X 

1390  DELGTZP!l)aDtLGTZ!l*l) 


TALGRAD 


COnT 


14|4Si  1  Qi/ip/ee 
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1600  lFClM.fcS,K«n  60  TO  56? 

1610  56b  CONTJNUt 

1620  567  CONTINUE 

16>0  DO  1*1 # AK 

1640  566  A> (l)P  0ELGTX<1)*«2  ♦  DELCTZPU)«*2 

1650  CALL  PL0T2(OtL6TZP,DELGTX,M) 

1660  CALL  PLOT2(XHG,AS,KK) 

1670  570  CONTINUE 

1600  PRINT  ,*00  YOU  NANT  TU  HECALCULATE  6HA01ENTS  FO«  OTHtN  VALUE®  OF* 
1690  PRlNt,  *DELXX  AND  DELZZ  YES ( 1 1 ,  N0C2)* 

1700  RE AO  560#  NNN 

1710  560  FORMAT(V) 

1720  IF (RNN,EO, 1 1  60  TO  365 

1730  5000  CONTINUE 
1740  STOP 


APPENDIX  G:  HILBERT  LISTING 


HILBERT 


1 M | U  7  I  5  04/26/S2 


TILE  PACE  HO, 


10*a  RUN  *fROSOORl/PLOTS,E 
20  DIMENSION  T(100),m(100>, *(100) 

10  DmNSlUN  A ( | 00 ) 

00  READ  10, N, DEL* 

04  A(1  )a,4*DELX 

40  DO  T  1*2, N 

00  7  X(l)sX(I«l)  ♦  DbLX 

70  HEAD  10,  ( T ( I )  ,  1 ■ 1 , N ) 

00  10  rORHAT(V) 

100  00  20  1«1,N 

110  CALL  HlLBRT(T,N,H,A) 

120  20  CONTINUE 

130  PRINT  24 

100  24  FORMAT(10X,"X*,12X,*G2,X*,12A,*GZ,2*,12X,*A*) 

ISO  PRINT  10,(X(l),T(I),H(I),A(l),lal,N) 

1O0  30  FORHAT(SX,FiO,0,F15tS,Fl4,8,F 14,8) 

170  PRINT,  '00  YOU  RANT  GRADIENT  PROFILES  YESC1),  NQ(2)* 

ISO  READ  10,  HH 

190  IF(MM,EU,2)  CO  TO  33 

200  CAU  PLCT2 (X,m, n) 

210  CALL  PL0T2(X,T,n) 

220  33  PRINT,  'DO  YOU  "ANT  A  GRADIENT  SPACE  PLOT  YES(l),  NQC21* 

230  READ  10,  NN 

200  IF (NN,EU,2)  00  TO  14 

240  CALL  PL0T2 (M, T , N) 

26 0  34  PRINT,  *00  YOU  "ANT  a  plot  OF  THE  HCDULUS  OF  the  ANALYTIC 

270  A  SIGNAL  YES ( 1 } ,  NQ(2)« 

200  READ  10,  LL 

290  IFIlL.EU.2)  GO  TO  OO 

204  CALL  PL0T2 ( X, A , N ) 

300  00  STOP 

310  END 

320  SUBROUTINE  HUB"!  (T,N,h,A) 

330  DIMENSION  T(1)«h(!).A(1) 

300  DU  4  1*1, N 

ISO  4  T(N42-I)«TtN*l"I) 

360  T ( 1 )*0 

170  T (N«2)*0 

3B0  DU  00  1*1, N 

390  H(I)«0 

000  Jsl 

010  10  IF ( J,tU, (N»l*l ] )  GO  TU  20 

020  H(I)*H(I)4(T(IYJ41)"(J41)*T(IFJ42)*J)'AL0CU,*1,/J) 

030  J"j4l 

000  GU  TO  10 

OSO  20  Jal 

060  30  IF  (  J  «EU , I )  GO  TO  OO 

070  H(l)ahtI)4(T(l«J)4j-T(l»j4l)4(JYl))«AL0G(l,4lt/J) 

060  Jaj4l 

090  GO  TO  30 

400  OO  H(I)aH(I)/if 101S93 

410  00  04  I ■  1 ,  N 

420  T(!>*T<Z«I> 

430  04  A(l)aT(l)**2  ♦  H(l)**2 

Soo  RETURN 


330 

3oo 

340  4 

360 
170 
360 
390 
000 

010  10 
020 
030 
000 

040  20 


HILBERT  CONT 


101071  4  04/26/62 


FILE  page  NO, 


440  END 
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APPENDIX  H:  SEISDIG,  SEISPLOT 
REFINT,  AND  DOMER  LISTINGS 


LIS 

10  INIT 

20  RiHuiittmimmmmttmmmtmmmmmmmmitm 

30  REM***  THIS  PROGRAM  IS  DESIGNED  TO  REDUCE  SEISMIC  REFRACTION  ***** 

40  REM***  OSCILLOGRAPH  RECORDS,  AND  WRITE  THE  RESULTING  TIME-  ***** 

30  REM***  DISTANCE  INFORMATION  TO  A  MAGNETIC  TAPE  ***** 

60  REM*************************************************************** 
100  PAGE 

110  PRINT  "INPUT  FROM  THE  KEYBOARD  IDENTIFICATION  OF  DATA" 

120  PRINT  "THIS  INFORMATION  MUST  BE  72  CHARACTERS  OR  LESS’ 

130  INPUT  X* 

140  DIM  G<24>,T<24> 

150  PRINT  "INPUT  COORDINATE  OF  SHOTHOLE  IN  FEET." 

160  INPUT  SI 

170  PRINT  "INPUT  DISTANCE  FROM  SHOTHOLE  TO  GEOPHONE  NEAREST  IT." 

180  PRINT  "NOTE— USE  NEGATIUE  •  IF  MOUING  FROM  HIGH  FOOTAGE  TO  " 

190  PRINT  "LOW  FOOTAGE." 

200  INPUT  G<1 ) 

210  PRINT  "KEY  IN  THE  SHOTHOLE  DEPTH" 

220  INPUT  D2 
230  G( 1 >*G< 1 )+Sl 

240  PRINT  "INPUT  THE  SPACING  BETWEEN  GEOPHONES— USE  NEGATIUE  UALUE* 

250  PRINT  "IF  MOUING  FROM  HIGH  FOOTAGE  TO  LOW  FOOTAGE." 

260  INPUT  S 

270  REM**************************************************************** 
280  REM*****  INITIALIZE  OSCILLOGRAPH  RECORD  *************************** 
290  REM**************************************************************** 
300  PRINT  "DIGITIZE  THE  TIHIHG  LINE  JUST  PRECEDING  THE  TIME  BREAK" 

310  INPUT  08:T1,D,D1 
320  PRINT  "G" 

330  PRINT  "DIGITIZE  THE  TIMING  LINE  OCCURING  200  nscc  LATER" 

340  INPUT  08:T2,D,D1 
350  PRINT  "G" 

360  T3«200/<T2-T1> 

370  PRINT  "DIGITIZE  THE  TINE  BREAK" 


SEISDIG 


380  INPUT  08:T0,D,D* 

390  PRINT  "G" 

400  PAGE 

410  PRINT  "DIGITIZE  THE  FIRST  ARRIUALS  OFF  OSCILLOGRAPH  RECORD" 

428  PRINT  *  1.  PRESS  WHITE  BUTTON  NORMALLY." 

430  PRINT  "  2.  PRESS  BUTTON  il  IF  A  TRACE  IS  SKIPPED" 

440  PRINT  "  3.  PRESS  BUTTON  *2  TO  REDIGITZE  THE  PRECEDING  POINT" 

450  PRINT  "  4.  PRESS  BUTTON  83  TO  DIGITIZE  LAST  POINT- 

460  N*1 

470  PRINT  032,26:2 

480  PRINT  "DIGITIZE  TRACE  •  "IN 

490  INPUT  08:T(N),Y,Z* 

500  PRINT  "GGG" 

510  T (N)“<T<N)-T0)*T3 
520  IF  Z*="2"  THEN  600 

530  IF  Z*»"4"  THEN  480 

540  IF  Z*»"8"  THEN  560 

550  GO  TO  570 

560  G(N)=G(N)*S 
570  G<N+1)*G<N)+S 
580  N-N+l 
590  GO  TO  480 

600  REM*************************************************************** 
610  REM****CORRECT  DISTANCES  FOR  SHOTHOLE  DEPTH  USING  PYTHAGOREAN***** 
620  REH****THEOREM  APPLIED  TO  FIRST  FOUR  GEOPHONES  AND  THEN  ***** 
630  REM**«*LIST  THE  TIME  DISTANCE  INFORMATION 

640  REM*************************************************************** 

650  D3«D2t2 

660  FOR  1*1  TO  4 

670  L1«ABS<S1-G<i>)t2 

680  IF  S>0  THEN  710 

690  G( I >*S1 -SQR(L1+D3) 

700  GO  TO  720 

710  G<I>"S1«SQR<L1403) 

720  NEXT  I 


SEISDIG 


SEISDIG  3 


730  PAGE 

740  y*-« 

750  Y$=Y*tY$ 

760  P=LEN<X8> 

770  0»36-P^2 
780  Y*=REP<X$,0,P> 

790  PRINT  Y* 

800  PRINT  832,26:0 
810  A*="TRACE  NO. “ 

828  88= "DISTANCE" 

830  Cf**TIHE(Msec>“ 

840  PRINT  A8,B8,C8 

850  PRINT  " _ " 

860  PRINT 

870  FOR  1=1  TO  N 

880  PRINT  I,G(I),T(I) 

890  NEXT  I 
900  INPUT  V* 

918  PAGE 

920  PRINT  "MOULD  YOU  LIKE  TO  REDIGITZE  ANY  OF  THE  POINTS?" 

930  INPUT  Q8 

940  IF  G8«"N"  THEN  1040 

950  PRINT  "HHICH  POINT  NO." 

960  INPUT  I 

970  PRINT  "DIGITIZE  THE  POINT" 

980  INPUT  08:T<I),Y,Z# 

990  TCI>=<T<I>-T0>*T3 
1800  GO  TO  920 

1810  RENtmmmmtmmmmmmmmimmmmmmmmt 

1020  REntmssTORE  data  on  nagnetic  TAPEtmmmmmmm********** 

1030  REnmttmtmmmmmmimtmmmmummmmmm 
1040  PAGE 

1050  PRINT  "MOULD  YOU  LIKE  TO  STORE  THIS  TINE-DISTANCE  INFO  ON  TAPE?" 

1060  INPUT  08 

1070  IF  Q8«"N"  THEN  1160 


SEISDIG  4  (Last) 


1080  PRINT  "MHICH  FILE  •  MOULD  YOU  LIKE  TO  STORE  DATA  ON?" 
1090  INPUT  FI 
1100  FIND  FI 
1110  HRITE  033:X$ 

1120  HRITE  033:N 

1130  FOR  1=1  TO  N 

1140  HRITE  633:G<I),T<I) 

1150  NEXT  I 
1160  END 


SEISPLOT  1 


LIS 

I  INIT 

3  S9=0 

4  L9* 1.636363 

5  LS*1 

6  DIN  T<50),D(50> 

7  REN  :  TO  USE  THIS  PROGRAH  FOR  PAPER  PLOTS  -  SET  CORNERS  OH  PLOTTER 

8  REN  :  TO  DEFAULT  UALUES  OF  10"  BY  15"  -  IT  IS  DESIGNED  TO  PLOT 

9  REN  :  AH  X  AXIS  OF  7"  AND  A  Y  AXIS  OF  5"  ON  PAPER  WHICH  IS  6"x  10.3" 

10  REN  :  IN  SIZE  -  WHEN  NOUNTIHG  PAPER  ON  PLOTTER  SET  LEFT  EDGE  OF 

II  REN  :  PAPER  IN  LINE  WITH  THE  SCREWS  ON  THE  LEFT  HAND  SIDE  OF  THE 
12  REN  :  PLOTTING  SURFACE 

19  PAGE 

20  PRINT  "KEY  IN  THE  PROPER  *  TO  PERORN  THE  INDICATED  FUNCTION" 

30  PRINT  "  1  ENTER  DATA" 

40  PRINT  "  2  CHANGE  OR  ADD  DATA" 

50  PRINT  "  3  PLOT  DATA  AND  LABEL  AXES" 

60  PRINT  ‘  4  CHOOSE  BETWEEN  PAPER  OR  CRT  PLOT" 

61  PRINT  "  5  DISPLAY  DATA" 

62  PRINT  "  6  SELECT  SYNBOL" 

69  PRINT  "  7  STORE  DATA  ON  TAPE" 

70  PRINT  "  8  READ  DATA  FRON  TAPE" 

71  PRINT  *  9  STOP  PROGRAN" 

80  PRINT  "INPUT  THE  APPROPRIATE  NUHBER" 

85  DIN  T<50)|D(50) 

90  INPUT  HI 

95  PRINT  01 • 17: It  1.636363 

100  GO  TO  HI  OF  130* 320i 430i 520)220i 1550* 1610* 1800* 1530 
110  DIN  T<50))D(50> 

120  PAGE 

130  PRINT  ‘INPUT  TINE  DEPTH  VALUES)  END  LIST  WITH  TINE  LESS  THAN  ZERO' 
140  Jl»l 

130  PRINT  "DISTANCE("| Jl| ">  ■  "I 
160  INPUT  T(J1> 

162  IF  T(J1><0  THEN  210 


170  PRINT  "TIHECJJU")  »  "I 
180  IHPUT  D<J1 ) 

190  J1«J1*1 
200  GO  TO  150 
218  J1=*J1-1 
220  PAGE 

230  E$=*"POINT  NO." 

240  D$*’TIHE  (NSEC)" 

250  F$*"DEPTH  (NSEC)" 

260  PRINT  E$>F$)D* 

270  PRINT 
280  PRINT 
290  FOR  1=1  TO  J1 
300  PRINT  I,T(I),D(I) 

310  NEXT  I 

320  PRINT  "WOULD  YOU  LIKE  TO  CHANGE  OR  ADD  ANY  POINTS  (ANSWER  Y  OR  N)??" 

330  INPUT  Ql 

340  IF  Q*=*Y"  THEN  360 

350  GO  TO  19 

360  PRINT  "KEY  IN  THE  POINT  NO." 

370  INPUT  I 

380  PRINT  ‘KEY  IN  THE  CORRECTED  OR  ADDED  POINT  UALUES" 

390  IHPUT  T(I)iD(I) 

400  IF  KJl  THEN  420 

410  J1»I 

420  GO  TO  220 


30  PAGE 

40  PRINT  "WHAT  ARE  X  AND  Y  SCALE  FACTORS?" 
50  INPUT  X2,Y2 

31  X1-7IX2 
52  Y1-3IY2 

60  PRINT  "WHAT  IS  THE  X  LA8EL?" 

70  INPUT  XI 

80  PRINT  "WHAT  IS  THE  Y  LABEL?" 

90  INPUT  Y8 


SEISPLOT  2 


SEISPLOT  3 


580  PRINT  "WHAT  IS  THE  80R1NG  HOLE  NUMBER? * 

510  INPUT  B* 

520  PRINT  "FOR  PAPER  PLOT  TYPE  1;  FOR  CRT  PLOT  TYPE  32" 

530  INPUT  N0 

535  PRINT  "MOULD  YOU  LIKE  TO  PLOT  THE  AXIS  (ANSWER  Y  OR  N>“ 

536  INPUT  C* 

540  PRINT  01,17:1,1.636363 

541  PRINT  "MOULD  YOU  LIKE  TO  PLOT  ON  GRAPH  PAPER  (ANSWER  Y  OR  N>* 

542  INPUT  G* 

543  IF  G*=“N"  THEN  550 

544  PRINT  "MOUE  PEN  TO  ORIGIN  AND  PRESS  CALL  BUTTON  ON  PLOTTER" 

545  INPUT  01,27lX3, Y4,G$ 

546  X4=X3+?0 

547  Y3=Y4+50 

548  GO  TO  640 
550  X3=18 
560  X4=88 
570  Y3=61 
580  Y4=ll 
590  GO  TO  640 
600  X3=45 
610  X4=105 
620  Y3=85 
630  Y4=15 
640  PAGE 

650  VIEWPORT  X3,X4,Y4,Y3 
660  WINDOW  0,X1,0,Y1 
665  IF  Cf*"N“  THEN  680 
670  AXIS  eN0:X2/2,Y2/2 
675  AXIS  0N0:X2/2,Y2/'2,X1,Y1 
680  GOSUB  1390 
690  REMARK 

700  REMARK  TIC  LABEL  SECTION 
705  IF  C*«"Y"  THEN  7 20 
707  GO  TO  1331 

710  REMARK 

720  FOR  1=0  TO  XI  STEP  X2 
730  WINDOW  0,X1,0, Yi 
740  MOUE  0N0: 1,0 
750  IF  1=0  THEN  790 
760  L1«LGT(I> 

770  L1«INT(L1+1.0E-3>*1 
780  GO  TO  800 
790  Ll=l 
800  SCALE  1,1 

810  RMOUE  0N0:-L1/2*L8-L8,-L9 
820  PRINT  0N0:I 
830  NEXT  I 

840  WINDOW  0,X1,0,Y1 
850  VIEWPORT  X3,X4,Y4,Y3 
860  MOVE  0N0:Xl/2,0 
870  SCALE  1,1 
880  RMOVE  0N0:0,5 
890  M=LEN(X*)/2 
900  RMOVE  0N0:-L8*N,-6*L9 
910  PRINT  0N0:X* 

920  FOR  J=0  TO  Yl  STEP  Y2 
930  WINDOW  0,X1,0, Yl 
940  MOVE  0N0:0,J 
950  IF  J«0  THEN  990 
960  L2*LGT(J> 

970  L2»INT(L2-U.0E-3) 

980  GO  TO  1000 
990  L2-0 
1000  SCALE  1,1 

1010  RMOVE  0N0:-L8*(L2+3),-0.5*L8 
1020  PRINT  fN0:J 
1038  NEXT  J 
1040  REMARK 

1050  REHARKUtm  AXIS***** 


SEISPLOT  A 


-  - 


1060  REMARK 

1070  WINDOW  0,X1,0,Y1 

1080  MOUE  0N0: 0, Yl/2 

1090  SCALE  1, 1 

1100  L=LEN<Y*>/2 

1110  IF  N0=32  THEN  1140 

1120  RMOUE  8NO:-4*L9,-L 

1130  GO  TO  1150 

1140  RMOUE  8N0:-5*L9,L*2 

1150  FOR  1=1  TO  LEN<Y*) 

1160  A*=SEG<Y*,I,1> 

1170  PRINT  8N0, 25:90 
1180  PRINT  @N0*. A*; 

1190  IF  N0=32  THEN  1220 
1210  GO  TO  1230 
1220  RMOUE  0N0:0,-2.82 
1230  NEXT  I 
1240  HOME 

1260  REHARK*********PR1NT  THE  TITLE*m*1000  REMARK 

1270  WINDOW  0,X1,0,Y1 

12e0  MOUE  0N0:X1/2,Y1 

1290  SCALE  1.1 

1300  CS=H* 

1310  RMOUE  0N0:L8t(-LEN(C*)/2),4*L9 
1320  PRINT  8N0.25:0 

1330  PRINT  0N0:C$ 

1331  WINDOW  0.150,0,100 

1332  UIEUPORT  0,150,0,100 

1333  MOUE  0i:X3,Y4 
1340  INPUT  Zf 
1350  GO  TO  19 

1360  REHARK*mm***m*mmmnmmmmmm 

1370  REMARK  PLOT  DATA  POINTS  WITH  TRIANGLES 

1380  REMARKmnmmmmmmmmtmmmmi 

1390  WINDOW  0, XI ,0, Y1 
1400  VIEWPORT  X3,X4, Y4, Y3 
1410  MOUE  0H0:0,0 
1420  FOR  1=1  TO  J1 
1430  MOUE  @H0:T<I),D(I) 

1440  DRAW  eN0:T<I),D(I) 

1450  S1=X 1/70* 1.25 

1460  S2=Y1/70*1.25 

1461  IF  S9<>1  AND  S9<>2  THEN  1510 

1462  IF  S9=2  THEN  1502 
1470  RMOUE  eN0:Sl/2,S2/3 
1480  RDRAM  0N0:-Sl/2,-S2 
1490  RDRAM  eN0:-Sl/2,S2 

1500  RDRAM  0N0:S1,0 

1501  GO  TO  1510 

1502  rem:::::::::  plot  squares  :::::::::::::::: 

1503  RMOUE  0N0:Sl/2,-S2/2 

1504  RDRAM  0H0:0,S2 

1505  RDRAM  0N0:-S1,O 

1506  RDRAM  ?N0:0,-S2 

1507  RDRAM  0N0:S1,0 
1510  NEXT  I 

1520  RETURN 
1530  END 

1540  IF  N0=32  THEN  1180 
1550  PAGE 

1560  PRINT  "CHOOSE  AND  KEY  IN  THE  APPROPRIATE  SYMBOL  NO." 
1570  PRINT  "  1  FOR  TRIANGLE" 

1580  PRINT  "  2  FOR  SQUARE" 

1590  INPUT  S9 
1600  GO  TO  19 

1610  REM:  STORE  DATA  ON  TAPE 
1620  PRINT  "TYPE  IN  IDENTIFICATION" 

1630  INPUT  N* 

1640  PRINT  "INPUT  FILE  •  THAT  YOU  WANT  DATA  STORED  ON" 


H5 


SEISPLOT  5 


"  '  • 


SEISPLOT  6 


•  •••000000000000 


SEISPLOT  7  (Last) 


1656  INPUT  F3 
1660  FIND  F3 
1670  MRITE  N* 

1680  WRITE  J1 
1690  FOR  L*1  TO  J1 
1700  WRITE  T(L>,D(L> 

1710  NEXT  L 
1728  CO  TO  19 

1800  REN:  READ  DATA  FROM  TAPE 

1810  PRINT  -INPUT  FILE  •  DATA  IS  TO  BE  READ  FROM" 

1820  INPUT  F3 

1825  FIND  F3 

1830  READ  033: N> 

1840  READ  033: J1 
1858  FOR  L=1  TO  J1 
1860  READ  633:T(L)|D<L> 

1870  NEXT  L 
1880  GO  TO  19 
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90  DIN  X(4,2)jU(4f2)«D<4>2)*Sl(2)|A$(l)jU2<4>»T<4,2> 

100  PRINT  -WOULD  YOU  LIKE  TO  PROCESS  80TH  A  FORWARD  AND  REUERSE  LINE?" 
110  INPUT  A* 

120  IF  A$«-Y*  THEN  190 
130  Fl*l 

140  PRINT  "IS  THE  LINE  BEING  PROCESSED  FORWARD  OF  REUERSE  (TYPE  F  OR  R>" 
150  INPUT  A* 

160  IF  A$="F"  THEN  200 

170  F 1 =3 

180  GO  TO  200 

190  F 1 =2 

200  PRINT  -TYPE  IN  LINE  IDENTIFICATION- 
210  INPUT  6* 

220  PRINT  -DIGITIZE  THE  FOLLOWING  INFORMATION  FROM  THE  T-D  PLOT- 
230  PRINT  -JJDIGITIZE  THE  ORIGIN- 
240  INPUT  08:A0,B0,M< 

250  PRINT  "G" 

260  PRINT  -JDIGITIZE  THE  RIGHTMOST  POINT  ON  THE  HORIZONTAL  AXIS- 
270  INPUT  e8:A2,B2,M$ 

280  PRINT  -G- 

290  PRINT  "JDIGITIZE  THE  HIGHEST  POINT  ON  THE  VERTICAL  AXIS’ 

300  INPUT  08:A4,B4,M* 

310  PRINT  "G" 

320  remark: mmmmmmmmmmmmmmmmmm 

330  REMARK:  INITIALIZE  VARIABLES 

340  remark:  mmtmmtmmtmmmtmttmmmmmm 

350  L1«0 
360  L2*0 

370  FOR  1-1  TO  4 
380  FOR  J-l  TO  2 
390  X(I,J)*0 
400  V(I,J>*0 
410  T(I,J)>0 
420  D<I,J>«0 
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430  NEXT  J 

449  NEXT  I 

450  IF  F 1*3  THEN  490 

460  PRINT  "HOW  MANY  LAYERS  ARE  ASSOCIATED  WITH  THE  FORWARD  LINE?" 

470  INPUT  LI 

480  IF  F 1 = 1  THEN  520 

490  PRINT  "JHOW  MANY  LAYERS  ARE  ASSOCIATED  WITH  THE  REUERSE  LINE?* 

500  INPUT  L2 

510  IF  Fl=3  THEN  630 

520  PRINT  "JDIGITIZE  CRITICAL  DISTANCES  ON  THE  FORWARD  LINE* 

530  FOR  1=1  TO  LI 
540  IF  I =L 1  THEN  570 

550  PRINT  “JDIGITIZE  CRITICAL  DISTANCE  *"Sl 
560  GO  TO  580 

570  PRINT  "JDIGITIZE  ANY  POINT  ON  THE  HIGHEST  FORWARD  UELOCITY  LINE" 
580  INPUT  08:X(I,1>,T<I,1),M$ 

590  PRINT  "C* 

600  NEXT  I 

610  IF  F 1 = 1  THEN  720 
620  PAGE 

630  PRINT  'DIGITIZE  CRITICAL  DISTANCES  ON  REUERSE  LINE:* 

640  FOR  1=1  TO  L2 

650  IF  I=L2  THEN  680 

660  PRINT  * JCRITICAL  DISTANCE  •"* I 

670  GO  TO  690 

680  PRINT  "JDIGITIZE  ANY  POINT  ON  THE  HIGHEST  REUERSE  UELOCITY  LINE" 
690  INPUT  @8:X(I,2),T(I,2>,M» 

700  PRINT  *G" 

710  NEXT  I 
720  PAGE 

730  IF  FI =3  THEN  780 

740  PRINT  -FROM  THE  KEYBOARD  ENTER  THE  FOLLOWING  INFORMATION:" 

750  PRINT  "JJDISTANCE  OF  FORWARD  SHOTPOINT  FROM  ORIGIN’ 

760  INPUT  SI < 1 > 

770  IF  Fl»l  THEN  810 

780  PRINT  "JD I STANCE  OF  REUERSE  SHOTPOINT  FROM  THE  ORIGIN* 

790  INPUT  SI (2) 

800  IF  Fl«3  THEN  840 

810  PRINT  "INPUT  THE  FORWARD  SHOTHOLE  DEPTH* 

820  IHPUT  D8 

830  IF  F 1 *  1  THEN  860 

840  PRINT  "IHPUT  THE  REUERSE  SHOTHOLE  DEPTH" 

850  INPUT  D9 
860  A1=0 
870  81=0 

880  PRINT  "JTHE  MAXIMUM  UALUE  OF  THE  HORIZONTAL  AXIS" 

890  INPUT  A3 

900  PRINT  "JTHE  MAXIMUM  UALUE  ON  THE  UERTICAL  AXIS" 

910  INPUT  B5 
920  A=A2-A0 
930  8=84 -B0 

940  REMARKmmmm*tmmmmm*mmmmmmm 

950  REMARK:  FORWARD  CALCULATIONS  MADE  IN  THE  NEXT  SECTION 

960  REMARKmmmmtmtmmmmmmmtmmmm 

970  IF  FI =3  THEN  1060 

980  FOR  1=1  TO  LI 

990  X<I,1)=(X<I,1>-A0)/A*(A3-A1) 

1800  T(I, 1 >*(T( I > 1 >-B0)/B*(B5-Bl > 

1010  X<I,1)=ABS(X<I,1)-S1<1>> 

1020  NEXT  1 

1030  RLHQRK'.tttttttttttttttttttttttttttttttttttttttttttttttttt 
1040  REMARK:  CALCULATIONS  FOR  REUERSE  LINE 

1050  REtibRK’.tttttttttttttttttttttttttttttttttttttttttttttttttt 

1060  IF  Fl-1  THEN  1150 

1070  FOR  1*1  TO  L2 

1080  X(I.2>*(X(Ii2)-A0)/A*(A3-Al> 

1090  T<I,2>>a(I,2)-B0>/B*(B5-Bl) 

1100  X(I,2>=ABS(X<Ii2>-Sl(2>) 

1110  NEXT  I 

1 129  remark:  nttuttntttttttttntutttttttttuttttttttttttttt 
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1138  REMARK:  COMPUTE  VELOCITIES 
1148  remark: 

1158  FOR  1*1  TO  2 

1168  IF  FI *3  AND  1*1  OR  <F1*1  AND  1*2)  THEN  1188 
lire  U<1,I)*<X<1,1>-A1>/<T<1,I>-B1>*1800 
1188  NEXT  I 

1198  IF  Fl*3  THEN  1240 
1280  FOR  1*2  TO  LI 

1210  U<I,1)*<X<I,1)-X<I-1,1))/<T<I,1)-T<I-1,1))*1000 
1220  NEXT  I 

1230  IF  Fl=l  THEN  1280 
1240  FOR  1*2  TO  L2 

1250  V<I,2>*<X<I,2>-X<I-1,2>>/<T<I,2>-T<I-1,2>>*1000 
1260  NEXT  I 

i2?0  remark:  mmmmmmmmmmmmmmmmmm 
1280  REMARK:  COMPUTE  DEPTHS 

1290  remark:  mmmmmmmmtmmmmtmmmmttt* 
1300  IF  Fl*3  THEN  1380 

1310  D<l,l)=X<l,l>/2*S8R<<V<2,l>-V<l,l>>/<V<2,l>+V<l,l»>+D8/2 
1320  IF  Ll*2  THEN  1378 

1330  D(2,l)*5/6*D<l,l)+X<2*l>/2*SeR<<U<3,l)-U<2,l>>/<U<3,l)+U<2,l))> 

1340  IF  Ll*3  THEN  1378 

1350  D1*1/6*D< 1 i 1 >+3/4*D<2, 1 ) 

1360  D<3, 1>=D1*X<3, 1)/2*SQR<<U<4, 1>-V<3, 1>>/<V<4, 1>*U<3, 1>>> 

1378  IF  Fl*l  THEN  1440 

1380  D<l,2>*Xa,2>/2*SQR«U<2,2>-V<l,2>>/<V<2,2>+V<l,2>»*D9/2 
1390  IF  L2*2  THEN  1440 

1400  D<2,2)»5/6*D<1,2)+X<2,2>/2*SQR<<U<3,2>-U<2,2>)/(U<3,2)+U<2,2>)) 

1410  IF  L2-3  THEN  1448 

1428  D2-l/6tD<l,l)+3/4*D(2)2> 

1430  D<3,2)*D2«'X<3,2>/2tSQR<<V<4,2>-V<3»2>>/’<V<4,2>HK3,2>>> 

1448  REHARK*mmm*m*mmm*m*tm**mmmm*mmt 
1458  REMARK:  OUTPUT  SECTION  RESULTS  ARE  NON  COMPLETE 

1468  RENARKmmmmmmmmmmmmmmmmmmt 
1478  IF  L10L2  OR  Fl-1  OR  Fl-3  THEN  1548 

1488  REMARKmmmmmmmmmmmttmmmmmmtt 
1498  REMARK:  COMPUTE  TRUE  VELOCITIES 

1588  REMARK : tttttttttttttttttttttttttttttttttttttttttttttttttttttt 
1518  FOR  1*1  TO  LI 

1528  V2<I)*2*V<I,1>*V<I,2)/<V<M)+V(I,2)> 

1538  NEXT  I 
1540  PAGE 
1550  PRINT  B$ 
iua  po tut  *  l* 

1578  PRINT  "  FORWARD  REVERSE' 

1588  PRINT  USING  1598: 

1590  IMAGE  1 IX,  “ _ ",25X, * _ ■ 

1608  PRINT  *J' 

1610  PRINT  USING  1620: 

1620  IMAGE  22X, 'THE  CRITICAL  DISTANCES  ARE.*' 

1630  PRINT  'J* 

1640  L=L1 

1650  IF  L1)L2  THEN  1670 
1660  L*L2 

1670  FOR  1*1  TO  L-l 

1680  PRINT  USING  1690: I, XU, 1), I,X<I,2> 

1690  IMAGE  11X,'X<*,1D,">  *',6D,  18X, 'XC,  ID, ')  «',6D 
1700  NEXT  I 
1710  PRINT  'J* 

1720  PRINT  USING  1738: 

1730  IMAGE  22X,*THE  APPARENT  VELOCITIES  ARE:* 

1740  FOR  1*1  TO  L 

1758  PRINT  USING  1760: I, V<I, 1), I,U(I,2> 

1760  IMAGE  11X,'V<',1D,'>  *S,6D,*  fp*', 17X, 'V<",1D, ')  «',6D,"  fps* 
1770  NEXT  I 
1780  PRINT  'J' 

1798  PRINT  USING  1888: 

1880  IMAGE  1 IX, 'THE  CALCULATED  DEPTHS  ARE:" 

1818  PRINT  'J' 
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1838  PRINT  USING  1848: 1.8(1, 1>, !,D<I,2>  141 

1848  IMAGE  11X,"D<MD,*>  ««,3D.2D  ft",18X,  "0<MD,  ">  *",30.20,"  «' 

1930  I 

I860  IP  HOL2  OR  Fl«l  OR  Fl-3  THEN  1968 
1878  PRINT  "J" 

1830  PRINT  USING  1898: 

1890  IMAGE  22X, “THE  TRUE  UELOCITIES  ARE:* 

1900  PRINT  "J" 

1910  FOR  1*1  TO  L 

1920  PRINT  USING  1938: I»U2<I> 

1930  IMAGE  1 IX» *U<*, 10* ")  *",60 
1940  NEXT  I 
1950  GO  TO  1970 

I960  PRINT  “JJTHE  TRUE  UELOCITIES  HERE  NOT  COMPUTED  FOR  THIS  CASE" 

1970  END 


15  REM  DOMER(DIGITIZATION  OF  MULTI-EUENT  REFRACTION  DATA>-DEY 

16  REN  PROGRAM  HILL  DIGITIZE  PEAK  ARRIUAL  TIME  AND  1  CYCLE  OF 

17  REN  EACH  EUENT.  IT  HILL  HANDLE  UP  TO  5  EVENTS  PER  TRACE  FOR  24 

18  REN  TRACES.  CALCULATES  FREQfcGROUP  VELOCITY  AND  OUTPUTS  IN  TABLE 

19  REN  GEOPHONES  MUST  BE  EQUALLY  SPACED.  T/D  PLOT  OF  PK  FOR  ALL  EVENTS. 

20  DIM  T1(24),T2<24),T3<24),T4(24),TS(24),D(24) 

30  DIM  F1(24),F2<24),F3<24),F4<24),F5<24),H1(24>,H2<24) 

35  S9=0 
37  F9=0 
40  Tl=-1 
45  T2*-l 
50  T3=-l 
55  T4*-l 
60  T5*-l 
65  F1*T1 
70  F2*T2 
75  F3*T3 
80  F4*T4 
90  F5*T5 

110  PRINT  "ENTER  TITLE" 

120  INPUT  Tf 

130  PRINT  "ENTER  GEOPHONE  SPACING" 

140  INPUT  X 

150  PRINT  "ENTER  TIME  INTERVAL  TO  BE  DIGITIZED" 

168  INPUT  R 

170  PRINT  "DIGITIZE  TIME  INTERVAL" 

180  INPUT  88:T8,Z,2$ 

190  PRINT  "G" 

200  INPUT  88:T9,Z,Zt 
210  PRINT  "G" 

220  S6«R/<T9-T8> 

225  PRINT  "DIGITIZE  ZERO  TIME" 

227  INPUT  »8: T7, Z,Zt 
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228  PRINT  'G' 

238  PRINT  'ENTER  NUMBER  OF  EVENTS  TO  BE  DIGITIZED* 

248  INPUT  N 
258  FOR  M*1  TO  N 

268  PRINT  'ENTER  STARTING  TRACE  NUHBER* 

270  INPUT  C 
288  FOR  K“C  TO  24 

290  PRINT  "DIGITIZE  EVENTI'lNj'  TRACE  'jKi '  PEAK' 

300  INPUT  B8:T»Z>Z* 

305  T*(T-T7>*S6 
310  GOSUB  900 

328  PRINT  -DIGITIZE  EVENTi'lMl'  TRACE  "|K| '  LEFT  TROUGH' 
330  INPUT  88:L,Z,Z* 

340  GOSUB  988 

350  PRINT  'DIGITIZE  EUENTI'JM}'  TRACE  'JKJ'  RIGHT  TROUGH- 
360  INPUT  08:R,Z'Z* 

370  GOSUB  900 
380  P*l/<(R-L)tS6> 

385  P*INT<P*10000>/18 
390  GOSUB  600 
400  NEXT  K 
410  NEXT  N 

420  REH::: OUTPUT  DATA 

430  H=1 

440  H1>T1 

450  H2*F1 

460  GOSUB  800 

470  N=M*1 

480  IF  H>N  THEN  590 
490  H1-T2 
500  H2-F2 
510  GOSUB  800 
520  H-H+l 

530  IF  H>N  THEN  590 
540  H1>T3 

550  H2-F3 

560  GOSUB  800 

570  IF  H>N  THEN  590 

572  H1»T4 

574  H2-F4 

576  GOSUB  800 

579  M*M*1 

580  IF  H>H  THEN  590 
582  H1»T5 

584  H2=F5 
586  GOSUB  800 

590  PRINT  'ALL  EVENTS  PRINTED  WNORMAL  TERMINATION***' 
595  GO  TO  4000 

600  rem:;:subr  data  array  sort::: 

610  GO  TO  M  OF  630>660»690»720f 750 
620  PRINT  'SORT  ERROR* 

630  T1<K)«T 
640  F1<K>»P 
650  RETURN 
660  T2<K)«T 
670  F2<K)«P 
680  RETURN 
690  T3<K)*T 
700  F3<K)«P 
710  RETURN 
720  T4<K)«T 
730  F4<K>«P 
740  RETURN 
750  T5(K>*T 
760  F5<K>"P 
770  RETURN 

000  REM::::SUBR  OUTPUT  DATA  TABLE:::: 

885  PRINT  '  'IT* 

806  PRINT  *  * 

810  PRINT  'EVENT  NUMBER  '|H 
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812  PRINT 

815  PRINT  *  X,ft  T , nscc  F,hz  Vs, ft'*' 

828  PRINT  ' - 

825  FOR  K*1  TO  24 
838  S*KtX 

835  IF  H1<K>— 1  THEN  868 

836  Hl<K)*INT<Hl<K)tl8>/18 
848  U-S/HKK) 

842  V*INT<V*10000>/10 

845  PRINT  S,H1(K>,H2<K),U 

858  GO  TO  878 

868  PRINT  S 

878  NEXT  K 

875  COPY 

888  PAGE 

885  G0SU8  2888 

898  RETURN 

988  ren:::subr  flag  sort:: 

910  PRINT  “fi* 

915  PAGE 

920  IF  Z$*'4‘  THEN  290 
930  IF  Z$*“8'  THEN  400 
940  IF  Z$*"2"  THEN  410 
950  RETURN 
1008  STOP 

2000  ren:::subr  plot:: 

2810  L9*l. 63636 
2028  L8*l 

2048  REN  TO  USE  THIS  PROGRAM  FOR  PAPER  PLOTS  -  SET  CORNERS  ON  PLOTTER 
2050  REN:TO  DEFAULT  VALUES  OF  18'  BY  15*  -  IT  IS  DESIGNED  TO  PLOT 
2060  REH:AN  X  AXIS  OF  7’  AND  A  V  AXIS  OF  5*  ON  PAPER  MHICH  IS  8'x  18.5' 
2878  REN:  IN  SI2E  -  MHEN  MOUNTING  PAPER  ON  PLOTTER  SET  LEFT  EDGE  OF 


I 


I 


2138  PAGE 

2135  IF  F9-1  THEN  2210 

2140  PRINT  'MHAT  ARE  X  AND  Y  SCALE  FACTORS?' 

2150  INPUT  X2.Y2 

2160  Xl*7tX2 

2170  Y1*5*Y2 

2180  X$*"DISTANCE, ft. * 

2190  Y$*'TIME,«i«c.* 

2280  N0=1 

2218  GOSUB  3405 

2230  PRINT  81, 17:1,1. 636363 

2240  X3*18 

2250  X4*88 

2268  Y3*61 

2270  Y4*ll 

2338  PAGE 

2340  VIEHPORT  X3,X4,Y4,Y3 
2350  UINDOH  0,X1,0,Y1 
2360  IF  F9*l  THEN  3140 
2370  AXIS  0N0:X2/2,Y2/2 
2388  AXIS  0N8:X2/2,Y2/2,X1,Y1 
2400  REMARK 

2418  REMARK  TIC  LABEL  SECTION 
2440  REMARK 

2450  FOR  1*0  TO  XI  STEP  X2 
2460  HINDOH  0,X1,0,Y1 
2470  NOME  0N8:I,0 
2480  IF  1*0  THEN  2528 
2498  L1*LGT(I> 

2500  L1-INT<L1+1.0£-3>*1 
2518  GO  TO  2538 
2528  Ll*l 
2538  SCALE  1,1 

2548  RMOUE  iN8:-Ll/2»L8-L8,-L9 
2558  PRINT  8N8:l 
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2560  NEXT  1 

2570  HINDOU  0,X1,0,Y1 

2580  UIEHPORT  X3,X4,Y4,Y3 

2590  HOUE  0N0:Xt/2,0 

2600  SCALE  1* 1 

2610  RHOUE  SN0:0,5 

2620  N9aLEN<X$)/2 

2630  RHOUE  0N0! -L8*H9,-6*L9 

2640  PRINT  0N0:X* 

2650  FOR  J=0  TO  Y1  STEP  Y2 
2660  HINDON  0,X1,0,Y1 
2670  NOUE  0N0:0|J 
2680  IF  >0  THEN  2728 
2690  L2=LGT(J> 

2700  L2a I NT  < L2+ 1 . 8E-3 ) 

2710  GO  TO  2730 
2720  L2=0 
2730  SCALE  1.1 

2748  RHOUE  @N0:-L8*<L2+3),-0.5*L8 
2750  PRINT  8N0: J 
2760  NEXT  J 
2770  REHARK 

2780  REHARK*****Y  AXIS***** 

2790  REHARK 

2800  UINDOM  0.X1.0.Y1 

2810  HOUE  0N0:0.Yl/2 

2820  SCALE  1.1 

2838  L«LEN<Y*)/2 

2850  RHOUE  9N0:-4*L9.-L 

2880  FOR  I«1  TO  LEN(Y*> 

2890  A*«SEG<Y*» I. 1) 

2900  PRINT  0N0.25:90 
2910  PRINT  0N0:A*| 

2950  NEXT  1 
2960  NONE 


2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3095 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3185 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

33M 


REHARK 

REHARK*********PRINT  THE  TITLE***** 1000  REHARK 

HINOOM  0.X1.0.Y1 

HOUE  0H0:X1/2,Y1 

SCALE  1,1 

C**T* 

RHOUE  0N0:L8*<-LEN<C*)/2),4*L9 
PRINT  0N0,25:0 
PRINT  0N0:C* 

HINDOU  0,150,0.100 
UIEHPORT  0,150,0,100 
HOUE  @l:X3,Y4 

reh::?input  z*?? 

F9=l 

REHARK******************************************* 

RENARK  PLOT  DATA  POINTS  UITH  TRIANGLES 

REHARK******************************************* 

HINDOU  0,X1,0,Y1 

UIEHPORT  X3,X4,Y4,Y3 

HOUE  0N0:0,0 

FOR  I«1  TO  24 

D(I>»I*10 

IF  HI  (1X0  THEN  3368 
HOUE  0N0:D(I>,H1<I> 

DRAH  9N0: D< I > , HI ( I > 

S1»X1/70*1.25 

S2»Y1/70*1.25 

IF  S9<>1  AND  S9< >2  THEN  3360 

IF  S9«2  THEN  3300 

RHOUE  0N0:$l/2,S2/3 

RDRAH  0N0:-Sl/2,-S2 

RDRAH  #N0:-31/2,S2 

RDRAH  0N0:$1,0 

GO  TO  3360 

ren:::::::::  PLOT  squares  :::::::::::::::: 
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3310  RMOUE  0N0:Sl/2i~S2<'2 
3320  RDRAM  0N0:0,S2 
3330  RDRAM  0N0:-S1,0 
3340  RDRAM  0N0:0,-S2 
3350  RDRAM  0N0:$1>0 
3360  NEXT  I 
3370  RETURN 
3380  END 
3390  REN 
3400  PAGE 

3405  ren:::  subr  choose  plotting  symbol:::: 

3410  PRINT  "CHOOSE  AND  KEY  IN  THE  APPROPRIATE  SYMBOL  NO." 
3420  PRINT  "  1  FOR  TRIANGLE" 

3430  PRINT  "  2  FOR  SQUARE" 

3432  INPUT  S9 

3435  PRINT  "CHANGE  PEN  COLOR  IF  DESIRED  AND  PRESS  RETURN" 

3436  INPUT  2$ 

3550  RETURN 
4000  END 


APPENDIX  I:  REFRDIR  EXAMPLE  AND  LISTING 


The  following  computational  procedure  is  used  by  REFRDIR  to  determine 

the  phase  velocities,  v*,  and  intercept  times,  t*  ,  for  the  direct  and  re- 

n  o,n 

versed  refraction  profiles  (  +  and  -  for  the  direct  and  reversed  profiles, 
respectively)  for  four  layers  (n=l,2,3,4)  or  three  interfaces  (n*2,3,4).  T 
given  data  are  (see  Figure  60):  1)  the  layer  velocities,  an,  2)  the  inter¬ 
face  dips,  6n»  and  3)  the  layer  thicknesses,  H*.  The  last  layer,  n=4,  is  a 
semi -infinite  half  spade.  The  top  interface  n*l,  is  the  air/ground  inter¬ 
face  and  it  is  assumed  to  be  horizontal.  The  angle  between  the  interfaces 
of  layer  n  is  *n:  ^  »  6r+1  -  6n- 

The  phase  velocites  and  the  intercept  times  for  the  first  interface 
(n*l  or  top  surface)  are  v*  *  a^,  t^  *  0. 

For  interface  # 2,  (n*2) ,  we  compute: 

7  1/7 

sin  e12  =  Oj/a2;  cos  ei2  =  Cl  -  sin“e12) 

then 

v2  *  “^/Csin  e12  cos^  ?cos  ©j^sinfy) 

to2*  C2Hi/ai3cos  ei2‘ 

For  interface  #3  (n*3) ,  we  compute : 

2  1/2 

sin  e23  *  c^/aj  »  cos  e23  *  U  *  sin 

sin  0^2  *  (a^/a2) (sin  02jCos  ^  ±  cos  e22sin  ^ 

cos  0^3  *  (1  -  sin20^j)^2 

then 

V3  *  ai/(si-n  ei3cos  7  cos  0i3s^J1  '('j) 

t*,*  (2H~/a.,)cos  9?_  +  (H?/a.)(cos  et,  +  cos  el,). 


Finally,  for  interface  #4,  we  compute : 

2  1/2 

sin  e34  =  a3/a4;  cos  034  =  (1  -  sin  @34) 
sin  e*4  =  (a2/a3)(sin  034cos  ij»3  t  cos  034sin  ii»3) 
cos  e24  *  (1  -  sin2024)1//2 

sin  0*4  *  (a1/a2)(sin  e24cos  i|>2  t  cos  024sin  ^2) 
cos  e*4  *  (1  -  sin20^4)1//2 
and  then  finally, 

i:  . .  .  ±  _  +  .  , 

v4  =  a^/Csxn  s^cos  \j»1  -t- cos  e^sin 

t^  =  (2H^/a3)cos  034  +  (H^/a2)(cos  e24  +  cos  024) 

+  (H^/a^Ccos  0*4  +  cos  0^4). 

Note,  the  computations  of  t^  are  made  as  a  running  sum;  each  term  is  computed 
as  the  values  of  the  cos  97^  are  confuted. 

The  equation  relating  the  layer  "thicknesses"  of  the  reversed  pro¬ 
file,  Hn>  to  those  of  the  direct  profile,  H*,  is: 

h;  -  Hj  -  L  sin  ♦„  IT  cos  ♦, 

where  the  symbol  Tf  represents  a  product;  that  is 
2 

^  COS  ijK  ■  COS  lp0  COS  ^  COS  lp2 

(recall  <i>Q  *  0  and,  therefore,  cos  *  1). 
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20C  RtF RAC  1  (A,F,  UANGI/»,  DILLON) 

IOC 

40C  PROGRAM  REFRAC  1  IS  A  MODELLING  PROGRAM  rmuSE  INPUT  DATA  ARE • 

SOC  1),  THE  NUMBER  OF  LATINS  ,  ,  ,  ,  ,  ,  IM.AYRS) 

BOC  2).  the  VtLUC IT Y~  I N  L  ACM  LAYER  ,  ,  .(ALPhA(M) 

roc  i),  the  dip  of  the  layer  interfaces  jn  decrees  ,  , 

eoc  ,,,,,,,,,,,,,  .(deltain)) 

ROC  and  4), THE  LAYER  THICKNESSES  ,  ,  ,  ,  ,  ,  IHPLU8 (N ) #HMINUS  IN )) 

100C 

HOC  NOTE!  N  VARIES  FKOH  1  TO  NL* YRS  ( 1 ,LE , N ,LE , nl A YR8 )  F OH 

I20C  ALPHA(N)  AND  DELTA(N),  but  I.LE.N.LE, (NLAYRS*! )  FOR  HPLUS(N) 

130C  ANO  HHJNUS (N J  , 

I  EOC 

1SOC  *****  SEE  THE  DIACRAM  IN  FIGURE  1  ***** 

ISQC 

170C  ALPHA  Cl)#  HPLUSCl)  tt  HHINUS(S)  ARE  THE  VELOCITY  (  LAYER 
1BOC  THICKNESSES  OF  THt  FIRST  LAYER  "MILE  DELTA(l)  IS  THE  OIP 
1V0C  ANCLE  OF  ITS  TOP  SURFACE  (THE  GROUND  SURFACE) 

200C 

210C  THE  PHOCRAH  COMPUTES  ANO  PRINTS  OUT  ,  FOR  BOTH  DIRECT  ANO 

220C  REVERSED  PROFILESI 

230C  I)t  THt  HORIZONTAL  PHASE  VELOCITIES  ,  , C VPLUS ( N ) , VMINUS (N ) ) 


240C  AND  2),  THE  INTERCEPT  TIMES  ,,,,,,,,  ( TPLUS ( N) , TM1 NU8 (N ) ) 
2S0C  FOR  EACH  HEFHACt ION,  (2,LE,N,LE,NLAYRS) 

240C 

270C  •**  DEFINITIONS  ANO  LIST  OF  VARIABLES  ••• 

2O0C 

2V0C  ALPNHI  a  (ALPHA  N  MINUS  1)  a  (N«1)8T  LAYER'S  VELCCITY  which  IS 
300C  COMPARED  WITH  THE  VELOCITY  IN  LAVER  N,  ALPHA (N) *  TO  INSURE 

31 OC  THE  VELOCITIES  ARE  MONOTOMCALLY  DECREASING, 

320C 

330C  ALPHA(N)  *  VELOCITY  IN  LAYER  N,  ( 1 ,LE ,N,LE , NLAYRS) 

340C 

350C  COSPSI  •  CCOSINt  PSD  a  COSINE  OF  THE  ANGLE  BtTWEtN  LAYER  N'S 
360C  INTERFACES,  F8I(N),  ( I , LE , N.Lt , NL A YRS-l ) 

370C 

3U0C  CUSP)  a  (COSINE  PSI(U)  a  COSINE  OF  THE  ANGLE  BETwtEN  THE 
3<*0C  FIRST  LAYER'S  SURFACES, 

400C 

4 ) OC  CTMIN  rn  (COSINE  T ME T Am ( I , N) )  a  COSINE  OF  THE  ANGLE  BkTwbEN  THE 
420C  XTH«1NTERF ACE  NORMAL  ANO  THt  RAY  wHICM  REFRACTS  ALONG  THE  NIH 

430C  INTERFACE  (N>1),  THIS  IS  FOR  UPWARD  TRAVELLING  nAVtS,  (Stt 

440C  FIGURE  l  AND  THEY  AM ( I ,N) ) , 

450C 

440C  CTPIn  a  (COSINE  TMETAP (I , N) )  a  SAME  AS  CTmIN  EXCEPT  F OH  THt 
470C  DOWNWARD  TRAVELLING  RAVES, 

4O0C 

490C  DELTA(N)  ■  THE  OIP  ANGLE  (IN  DEGREES)  OF  THt  NTH  INTERFACE,  THE 
500C  TOP  SURFACE  OF  L*TER  N,  (DELTA  ( 1 )  «  tOP  SURFACE  DIP  ANGLE  • 

510C  ZERO  DEGREES),  (1,LE,n,lENLAYHS) 

S20C 

530C  MMINUS(N)  a  THE  TMlCKNtSS  OF  THt  NTH  LATER  FOR  THE  Ht VERSED 
540C  PROFILE  (SEE  FIGURE  !>,  ( 1 ,LE , N ,Lt , NL A YHS*1) 

B50t 
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500C  HPLUS(N)  ■  TNI  SANE  AS  HMINUS(N)  EXCEPT  POP  THE  DIRECT  PROFILE 
S70C 

5B0C  NLAYHB  ■  (NUMBER  OP  WAVERS)  ■  NUMBER  OP  LAYERS  PCR  "MICH 
590C  VEwOClTIES  ARE  GIVEN,  (THE  EAST  LAYER  IS  A  HALF  SPACE) 

*00C 

blOC  NX2L8T  ■  NEXT  TO  LAST)  ■  NLAVRS  •  I 
620C 

*iOC  P  R  0.017R5J2925  ■  Pl/tSO  •  CONVERSION  FACTOR.  DECREES  TO  RADIANS 
9«0C 

650C  PSI(N)  •  ANGLE  (IN  HA0IAN8)  BETkEEN  THE  SURFACES  OF  THE  MH 
S60C  LAYER  •  P*(0ELTA(N*I)  •  DELTA(N)),  ( l ,LE,N,LE.NLAYRS*» ) 

670C 

6B0C  SINPSJ  a  THE  SINE  OF  P8!(N).  (SEE  C0SPS1.  PSI(NJ) 

•90C 

700C  SINPj  a  (SINE  OF  PSI()))«  (SEE  COSPI) 

7I0C 

720C  STHIn  a  (SINE  THETAH(I.N))  a  SINE  OF  THETA  MINUS  (SEE  CTMIN) 

7  JOC 

740C  STPIN  a  (SINE  THtTAP(I.N) )  a  SINE  OF  THETA  PLUS  (SEE  CTP1N) 

750C 

760C  THETAM(l.N)  a  (THETA  MINUS)  *  ANGLE  BETWEEN  THE  1 TH«INTERF ACE  NON* 
770C  HAl  and  the  ray  of  THE  rave  that  REFRACTS  ALONG  the  nth  inter* 
7SQC  FACE  (N> I ) .  THIS  IS  FOR  UPmARD  TRAVELLING  RAYS.  (SEE  FIG.  )J 
790C 

800C  THETAP(I.N)  a  (THETA  PLUS)  a  SAME  AS  THETAH  EXCEPT  THIS  IS  FOR 
810C  DOWNWARD  TRAVELLING  RAYS,  (SEE  FIGURE'  I) 

820C 

830C  TMINUS(N)  .a  INTERCEPT  TIME  FOR  THE  RAVE  REFRACTED  FROM  THE  NTH 
B40C  INTERFACE  FOR  THE  REVERSED  PROFILE.  (2. LE.N.LE. NLAVRS) 

B50t 

BaOC  TPLUS(n)  ■  INTERCEPT  TIME  FOR  THE  PAVE  REFRACTED  FROM  THE  NTH 
B70C  INTERFACE  FOR  THE  DIRtCT  PROFILE,  (2,Lt ,N,Lt .NLAVRS) 

BBOC 

BVOC  TMINUN  a  THE  RUNNING  SUM  FOR  THIRU$(N) 

900C 

91 OC  TPLUSN  a  THE  RUNNING  SUM  FOR  TPLUS(N) 

920C 

9 JOC  VMINUS(N)  a  HORIZONTAL  PHASE  VELOCITY  OF  THE  REFRACTION  FROM 
oaoc  THE  NTH  layer  FOR  THE  HEVtRSEO  PROFILE,  (2.LE.N.LE.NLAYRS) 

950C 

9bOC  VPLUS(N)  ■  HORIZONTAL  PHASE  VELOCITY  OF  THE  REFRACTION  FROH 
97 OC  TF9fe  NTH  LAYER  FOR  THE  OIRECT ' PROFILE ,  (2, LE  ,n,LE  , NLAVRS) 

980C 

990C  VRAT10  a  ALPHA (I }/ALPHA(l*t )  a  VELOCITY  HATIC 


1000C 

1010C  aaaaa  LUUATIONS  USED  BY  REFRAC  1  **»»« 

1020C 

I0J0C  1,  SlN(THtTA(N-l,N)  a  ALPHA ( S-l) /ALPHA (N ) 

loaoc 

1050C  2,  SIN(THETAP(I»1,N)  a  (ALPHA ( I«1 )/ ALPHA ( I ) )  a 

1 060C  (SlN(THtTAP(I,N)  a  P8I ( I  )  } 

1070C 

10B0C  J,  S)N(THETAF(I>),N)  a  (ALPHA(I*1)/ALPHA(D)  • 
1090C  (S1N(THETAM(X,N)  •  PSl(I)) 

nooc 
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1 1  tOC  4,  VM 1 NUS (N )  ■  ALPMA(l)/5lN(THETAPCi,N)  ♦  PSX  C  t  )  ) 

1 120C 

1130C  5,  VPLUS(N)  ■  ALPHA(1)/SIN(THETaM(J,N)  .  PSl(lJ) 

1190C 

1150C  b,  TPLUS10,N)  ■  sum  (OVEN  J«J  TO  I»n-1)  OP 

119QC  NPLUS(l)*(COS(THETAP(I,N))  ♦  COS ( T MET AN { I , N ) ) ) / ALPM A < 1 ) 

1 1 7  0  C 

1 1S0C  7,  Tm  I  N'JS  ( 0  ,  n  )  •  SUM  (OVER  I«1  TO  I«N»l)  Up 

1190C  HM1NUS(1)*(C0S(THETAP(I,N))  ♦  CU&(TMETAM(I,N)))/ALPHAII) 

1200C 

121 OC 

1220C 

1230C 

1290C  •••  BEGIN  PROGRAM  REFRAC  1 

1250C 

1260C 

1270  PaO, 0179532925 

12S0C  DIMENSION  INPUT  DATA  ARRAYS  AND  COMPUTED  ARRAY 

1290  REAL  ALPHAl50),ALPAC50),DtLTA<50),HPLUSC50),NMlNUS(50),  PS1 (50 ) 

1J00C 

tilOC  DIMENSION  AND  INITIALISE  OUTPUT  DATA  AHRAV8 
1320  REAL  TPLU8(50) , TM1NUS (SO ),VPLUS(50),VMINUS(50) 

1330  DATA  TPLUS,TMlNUS,VPLUS,VMlNUS/200*0a0/ 

1390  REAL  X(50),V(5Q), SPROLN, SUMCOS, SIGH 

1350  integer  o 

ISfeOC 

1370C  READ  INPUT  OATAI  NUMBER  OF  LAYERS  (NLAYHS),  LAVER  YbLOLITXES  C*L- 
13B0C  PMa),  DIP  ANGLES  (DELTA)  AND  LAYER  THICKNESSES (HPLUS) ’ 

1390  PRINT  7000 

1900  7000  FORMAT (lhl ,9X, *INPU3  NUMBER  CP  LAYERS  IN  MODEL  * » /  ) 

1910  READ  lOOO.NLAYHS 

1920  1000  FORMA  1 (V ) 

1930C 

1990  PRIM  7200 

1950  7200  PUHMAT(1M1,9X,»|NPUT  LtNGTH  OF  SHOT  SPREAD' » / ) 

1990  READ  1000, sproln 

1970  PRINT  7100 

1900  7100  FORMAT (1H1,9X,*F0R  EACH  LAYER  INPUT  A  LINE  ENTHY  WITH  T ME 
1990  N  F  OLLUn I NG  D A T A  * , / , 9Xi 'SEPAH A T ED  BY  CUMMASI  L  A YtR  VELOCITY, 

1500  &DIP  OF  INTERFACE, ',/,9X, 'LAYER  Tm l C*Nt S5 ' , // ) 

1510  ALPNMlao, 

1520  DO  10  N*1,NLAYRS 

1530  REAO  100(i,ALPHA(N),0ELTA(N),MPLWS(N) 

1590  AlPA(N)«ALPMA(N) 

1550  AlPHA(N)»ALPMA(N)/1000 

1560C 

1570C  THE  FOLLOWING  CHECKS  FOR  MONOTOMCALLY  INCREASING  VELOCI- 

15B0C  TIES,  IF  THEY  DECREASE,  PROGRAM  PRINTS  ERROR  MESSAGE  t  STOPS, 

1590C 

l6oo  if  (alpha(n),lt,alpnmi;  goto  voo 

1910  ALPNM  J  ■  ALPMA(N) 

1920  10  CONTINUE 

1930  DC  12  N«1,nlaYR$M 

1935  LaN 

1990  call  chminuschplus, sproln, l,p, delta, hminus) 


1 

1.  1 

■~<r' 
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1650 

12  COMlNUt 

1 

1660C 

16T0C 

PRINT  OUT  THE  DATA  HEAD  IN  AUOVE  TO  CHECK  Fun  ACCURACY 

1680 

PRINT  9000,NLAYRS 

fl  . 

1690 

9000  FORMAT (lHl,4X*f VELOCITIES  ARE  IN  MtTERS/SEC', 

1700 

6  •  (OH  FT/SEC),  TIMfcb  ARE  IN*,/, 

1710 

(  5X »  'MILL I SECS  AND  LAYER  THICKNESSES  ARE  IN  METERS,  IF T )', // , 

1720 

6  5X,  'THERE  ARE  »#I2#'  LAYERS  IN  THIS  HQUtL,*/V» 

mo 

6  5X,  'LAYER  NO,  "  VELOCITY  DIR  (DEUKEtS)  HA*,9X,»H«») 

A 

iHI 

1790C 

1750 

NXJLSTbNLAYRS-I 

1760C 

1770 

00  20  N«1,NX2LST 

1760 

PRINT  9100,N,ALPA(N) ,  DEL T A (N ) , HPLUS (N > , HHI NWS (N ) 

1790 

9100  FORMAT  (1H0,7X,I2,6X,F7,0,3X,3F11,1) 

1600C 

CALCULATE  and  CONVERT  LAYER  ANOLES,  PS I  (IN  RADIANS),  FROM  TME 

1610C 

DIP  ANGLES,  DELTA  (IN  DEGREES) 

1 

1820 

PSI(N)  ■  P« (DELT A (NA1 )  >  OELTA(N)) 

W 

1630 

20  CONTINUE 

1840 

PRINT  9200,NLAYRS, ALPA (NLA YHS ) , DELT A (NL A YRS ) 

1850 

9200  FORMAT  (1H0,TX,12,6X,F7,0,3X,HI,1) 

1660C 

1870C 

DO  LOOP  50  PERFORMS  THE  COMPUTATION  OF  TPLUS(N),  TmInUS(N), 

1680C 

VPLUS(N)  X  VMINUS(N)  (2,LE,n,LE,NLAYRS),  TPLUSn )«T MINUS ( l ) »0 , 9 

1890C 

AND  VPLUS(l)  ■  VMlNUS(l)  «  ALPHA ( 1 } , 

' 

i 

1900C 

• 

1910 

SINP1  S  SIN(PSKl)) 

1920 

C0SP1  B  SORT (1,0  •  SINP1AS1NP1) 

1930 

DU  50  N«2,NLAYHS 

1V40C 

19S0C 

the  COMPUTATION  IS  STARTED  BY  FINDING  S IN ( T HET A ( N- l , N ) )  (OR 

190QC 

STPIN)  USING  EUUATION  1,  THE  COSINE  (LTPIN)  IS  CUMPUTtD  FROM 

1970C 

THE  SINE.  STPIN  A  CTPIN  ARE  SET  EUOAL  TU  STM I N  A  CTmIN,  RES» 

l 

1980C 

PECTIvELY,  BECAUSE  THE T AP (N- l , N )  *  THE T AM ( N>) , N ) , 

• 

1990 

STPIN  B  ALPHA(N*l)/ALPFtA(M 

.  ..  F  'i 

2000 

CTPIN  s  SON T ( 1 , 0  •  8TPINASTPIN) 

2010 

STM I N  s  STPIN 

'■ 

2020 

CT“IN  »  CTPIN 

•  *  1 

“ 

2030C 

2040C 

The  RUNNING  SUMS  FOR  TILLS  and  TM1NUS  are  INITIALISED  TU  THfc 

2050C 

LAST  TERMS  In  EOLATIONS  6X7, 

1 

2060C 

• 

s 

2070 

TEMP  ■  2.0ACTPIN/ALPHA (N-l) 

2060 

TPLUSN  s  HPLUS(N»1 ) aTEMP 

; 

2090 

TMINUN  *  HMINUS(N»1 )AtEMp 

- 

2100C 

21 1 OC 

IF  NB2  (CORRESPONDING  TO  THE  FIRST  REFRACTED  RAVE  FROM  THE 

2120C 

SECOND  INTERFACE),  THE  SUMS  FCH  TPLU#  X  T M j NUS  HAVE  JUST  THE 

'* 

2130C 

ABOVE  TERMS  AND  the  PHO&RAm  JUMPS  TU  LINE  40  TO  CUMPUTE 

1 

2 1 40C 

VPLUS  AND  VMINUS, 

• 

2150C 

* 

2160 

IF  (N.E0.2)  GOTO  40 

2170C 

2160C 

DU  LOUP  30  COMPUTES  THE  REMAINING  TERMS  UF  TPLUS  X  TMINU5  (THE 

2190C 

SUMS  IN  EUUAT10NS  6  X  7), 

1 

• 

1 

•  ' 

T  Cs 

■A-  V. 

• 

• 

• 

9 

m  w 

r-  *  • 


s 


1 


l 
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DU  10  Mli,N 
i  •  n-mai 
psn  «  PsidAt) 
sinpsi  «'siN(Pbin 

COSPSI  a  SURTU.U  •  SINPS1 *S INPbl ) 

VRATIU  ■  Al*>HA(I)/AlP**im) 

IN  fUPPUT ING  TPLUS  A  TMINUS,  THE  SINES  AND  COSINES  UP  THE 
THETAS  FRCP  7HETA(N«1,N)  TO  THET A ( 1 , N )  ARE  NEEDED.  THESE  ARE 
COMPUTED  USING  EQUATIONS  2  A  3, 

STPIn  a  VHAUO*(SThIn*CUSPSI  a  CTP1N»S1NPSI ) 

STHJN  a  VHAT10*(6TwIn«C05PS1  •  CTHINaSINPSI ) 

CTPIN  a  SORT (1.0  •  STPIN*STPIN) 

CT«IN  a  SURTtl.O  •  STHIN*STHJN) 

TEHP  a  (CTPIN  a  CThINJ/ALPHAUJ 
TPLOSN  ♦  HPLUS ( I J *TEHP 
THINUN  ♦  HHINUS(I)*TEHP 


TPLUSN 

THINUN 

CONTINUE 


UPON  EXITING  DO  LOOP  30.  TPLUS(N)  A  THINUS(N)  HAVE  BEEN  COM¬ 
PUTED,  STPIN  IS  THE  SIN  OF  THtTAPU.NJ,  CTPIN  IS  ITS  COSINE. 
AND  STMXN  A  CTM1N  APE  THEIH  COUNTERPARTS  FUN  THE  RtVtRStD  PRO- 
FILE.  THEN  VPLUS(N)  A  VMlNUS(N)  AKE  COMPUTED  USING  EQUATIONS 
4  AND  5,  RESPECT! VEL V , 


2200C 
2210 
2220 
2230 
2240 
2250 
2200 
2270C 
22S0C 
2290C 
2JOOC 
23  IOC 
2320 
2330 
2340 
2350 
2300 
2370 
2360 

2390  30 

2400C 
2410C 
2420C 
2430C 
2440C 
2450C 
2460C 
2470  40 

2460 
2490C 
2500 
2510 
2520 
2530C 
2540C 
2550C 
2560 

2570  93"0 
C  80 
2590 
2600 
2610 
2620C 
2630 
2640 
2650 
2660 
2670 
2660 

269069400 

2700  60  CONTINUE 

2710  GOTO  999 

2720C 

2730  900  PRINT  9900 


•  1 


TPLU51N)  a 
TMINUS(N)  « 


VMINUS(N) 
VPLUStNJ 
50  CONTINUE 


TPLUSN 
a  THINUN 

■  ALPHA (l)/(STPINACOSPl  A  CTPIN*5INPl) 
I  ALPHA(1)/(STHIN*C0SP1  -  CTMINASINPIJ 


PHINT  THE  RESULT8  OF  THE  PROGRAH  **•* 
PH I  NT  9300 


»»A*A ',//, 


FOKHAT  (1HG,//,I6X, CALCULATED  RESULTS 
l  SX.'ThE  HORIZONTAL  PHASE  VELOCITIES  AND  THE  ', 
b  'INTERCEPT  TIMES',/. 

.  SX.'FUK  The  DIRECT  (A)  AND  REVERSED  (-)  PROFILES,',//, 

>  4X, 'INTERFACE  ND,  PHASE  VELA  PHASE  VEL-' , BX , 'T a' ,9X , 'T» ' ) 

DO  60  Na2,NL*YRS 

VPLUS(N1BVPLUS(N)*1000 

VMINUS(N)bvhINUS(N)*1000 

PRINT  9400, N, VPLUS (N), VMINUS(N ), TPLUS (NJ ,THINUS(N) 
vPLUS (N)avPLUS(N)/lOOO 
VMINUS(N)aVHlNUS(N)/100U 

FORMAT  (lHu,7X,I2,3X,2Fli,3,3X,2Fll.l) 
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6 


2750  X  5X,'THtY  ARE  V'JT  RUNCTUN ICALL Y  lNC*t  a&Im,,  '  ) 

2700  be  TO  3000 

2770C 

2700  994  CONTINUE 

2790C  *«a»PL0T  REFRACTION  PROF ILk  LlNtSlT/D  PLOT)  ••»•*•» 

2O00C  AAAAAtva  DIHtCT  PROFILE  LINE  ***** 

2010  2005  PH  J  NT  7240 

2020  7240  F0RRAT11HI,4A, 'INPUT  1  IF  YOU  «ISH  TO  PLOT  FORWARD* ,/* 

20J0  tax, 'PROFILE  LINE  ONLY*#/, 4X, 'ENTER  2  TO  PLOT  FOHftAPO  ANO  REVERSE 
2040  kPRCFILE') 

2050  REED  1000, R 

2000  Y(l)O0 

2070  X{1)*0 

2000  X(2)«TPLUS(2)/(l/ALPHA(n-l/VPLUSC2)) 

2090  Y(2)«U/*tPHA(l))*X(2J 

2900  KO] 

2910  DO  TO  N«2,NLAYR5»1 

2920  X(K)o(TPLU0(N«l)»TPLUS(N))/(l/VPLU8(N)>l/vPLUS(N91)) 

2930  Y(K)oTPLUSlN)All/VPLU5(M)*X(X) 

2940  INTEOER  0 

2950  A8A4 1 

2900  70  CONTINUE 

2970  X(K)«6PRDLN 

2900  V(K)0TPLUS(NLAVRS)*(1/VPLUS(NLAYKS})*X(K) 

2990  IF(",EU,1)  CO  TO' 2900 

3000C***PLOT  REVERSE  PROFILE  LINE  *••• 

3010  AaAtl 

3020  X (A  JaSPRULN 

3030  Y(A)ag 

3040  Ka A  *  1 

3050  *(A jaTMINUS(2)/(l/ALPPAtl)»l/VPlNLSC2)) 

3000  YlR)«U/ALPHA(l))aX(A) 

3070  X(K)aSPRDLN»X(K) 

3000  AaA*l 

3090  UC  00  n*2,klAYRS»1 

3100  X  IK  ja (TPINUS(N*1)»TPINUS(N) i/a/VFlNUSlN)»l/VPINUS{N*l  )  ) 

3110  T(A)*TRlNUS(N)*(l/VPlNUStM)«X(A) 

3120  X(*)«SPHbLN>X(K) 

3130  x«Af  1 

3140  00  continue 

3150  x (A  JaSPROLN 

3100  Y(|')»THlNuS(NLAYR#}AU/VRlNU5(NL*YRSnAXCA} 

3170  X(A)«0 

3100  2900  YPAXSY(l) 

3190  DO  84  ARa2,A 

3200  YpAX8MAX(YPAX,Y(XA)) 

3210  09  CONTINUE 

3220  PRINT  0500, YRAX 

3230  0500  FCRRAT (1H1,4X, 'LARbEST  VALUE  OF  Y  FDR  SCALING  IS  I  '  , 2X# F 0, 1 1 
3240  CALL  PL0T21X,Y,K) 

3250  3000  STUP 
3200  END 

3270  SlHRUUTInE  CRRINUS (RPLUS, SPRULN , n , P , DELT A  ,  HP INUS  ) 

3200  DIMENSION  RPLUS(IO) ,0ELTA(10) .RPINUSIIO) 

3290  integer  o 


APPENDIX  J:  REFRINV  EXAMPLE  AND  LISTING 


The  following  procedure  is  used  by  REFRINV  to  determine:  1)  the 
layer  velocities,  aR,  2)  the  layer  "thicknesses",  H*,  and  the  interface 
dip  angles,  for  layers  with  plane  dipping  interfaces  all  having 
the  same  strike.  The  given  or  input  data  are:  1)  the  intercept  time, 

T*n,  and  2)  the  horizontal  phase  velocities, V*,  for  direct  and  reversed 
refraction  profiles.  All  arrival  times  are  assumed  to  be  measured  on 
the  surface  and  the  +  and  -  signs  refer  to  the  quantities  associated  with 
the  direct  and  the  reversed  profiles,  respectively. 

The  velocity  in  the  top  layer,  ct  is  given  because  it  is  the 
horizontal  phase  velocity  of  the  direct  p  wave  (and  has  the  same  value 
for  both  the  direct  and  the  reversed  profiles).  The  intercept  times  of  the 
direct  waves,  T^,  for  these  profiles  are  both  zero  and  the  dip  angle  of 
the  top  surface  (the  n=l  "interface"),  5^,  is  defined  to  the  zero. 

The  computation,  therefore,  is  started  with  the  data  from  the 
second  interface  (i.e.,  the  first  refraction)  corresponding  to  n=2  and 
proceeds  as  follows: 

Compute 

ANGMNP,M  ■  0^2  ♦  ^  5  arcsin(a  /v| ) 

-  ANGNNP.M 

and  obtain 

otj/c^  -  sin012  *  sin.5(ANGNNP  +  ANGNW) 

° 2  "  Vsin0i2 

-  .5  (ANQJNP-ANGWM) 

TEMP2  -  aj/^cosO^) 

Hj  -  T52TEMP2 


'  • 


J1 


thus,  we  have  computed  c^,  yor  62)  and 

Then,  for  n=3,  we  confute 

ANGMNP.M  »  ^3  -  ^  *  arcs  in  (yVj) 
and  we  enter  DO- loop  30,  to  compute 

THETAP.M  =  =  ANCMNP.M  +  ^ 

ANCWNP.M  =  ®23  *  ^  ®  arcsin^sinS^/y 

TEMPI  *  (cos^3  +  cosQy/y 
TPLUSN,  TMINSN  =  T  *3  -  H*TEMP1 . 

We  then  exit  DO- loop  30  and  compute 
ANGNNP.M  -  ANCMNP.M 

y  a,  -  sin 623  *  sin.5(ANGNNP  +  ANGNM4) 

“5  «  V  sin  ^ 

^  «  .  SfANGNNP  -  ANGNN4) 

TEMP2  *  c^/(2cos023) 

H*  =*  (lj3  -  H'TEMPl)  TEMP2 

Thus,  we  have  computed  0^ ,  <|i,(or  63- 62+  4^)  and  h|  as  well  as  the  previous 
values  of  a,,  y and  by  using  the  data  from  the  first  two  refractions, 
that  is,  the  refractions  along  interfaces  n»2  and  n-3.  (See  Figure  1). 

For  n=4,  we  use  the  above  results  and  the  data  from  the  refractions 
along  the  n*4  interface  (V4  andT^)  as  follows:  we  compute 
ANGMNP.M  3  014  ±  ^  *  arcsin  (  yv4* 
and  then  enter  DO- loop  30  to  compute 

THETAP.M  *  «*4  =  ANGf*WP,M  *  ^ 

ANCMNP.M  *  024  t  ^2  "  arcsin  (0^  sin  0*4/ 

TEMP  1  =  (cos  8^4  +  cos  8^4)  /Oj 
TPLUSN, TMINSN  -T53  -  H*  TEMPI 

THETAP.M  »'  0|4  -  ANQNP.M  +  ^ 

ANOtJP.M  -  034  i  %  ■  arcsin  ( 0^  sin  824/ y 


TEMPI  =  (cos  024  +  cos  ®24^ ^ °2 
TPLUSN,TMINSN  =  TPLVS,  TMINSN  -  h|  TEMPI. 

We  then  exit  DO- loop  30  and  compute 
ANGNNP.M  =  ANCMJP.M 

a^/cij  =  sin  0^  =  sin  .5  (ANGNNP  +  ANGNWf) 

a4  =  Vsin  S34 
*  =  .  5  (ANGNNP-ANGNNM) 

TEMP2  *  03/(2  cos  6^4) 

H~  =  (TPLUSN  ,TMINSN)  TEMP2 . 

Thus,  we  have  computed  0^, 
all  the  parameters  for  a  four-layer  model  (three  layers  over  a  half 
space) . 

The  data  are  tabulated  with  all  the  data  for  a  particular  layer 
on  one  line  in  the  following  order:  1)  the  layer  number,  2)  the  layer 
velocity,  3)  the  dip  of  the  top  interface,  4)  the  layer  "thickness"  for 
the  direct  profile  and  5)  the  layer  "thickness"  for  the  reversed  profile. 


(or  6 .  = 


+  V 


and  H;.  We  now  have 
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FILE  PACE  NO, 


t 


IOC  REFRAC  2  is  AN  INVERSE  PROGRAM,  IT  DETERMINES  RODEO  PARAMETER 
20C  PROM  MEASURED  VALUES, 

3oC 

HOC  PROGRAM  REFRAC  2  MAS  FOR  ITS  INPUTl 
SOC  (FROM  DIRECT  AND  REVERSED  PROFILES) 

SOC  1)  HORIZONTAL  PHASE  VELOCITIES  AND 

TOC  2)  INTERCEPT  TIMES  FOR  EACh  REFRACTION  AND 

SOC  3)  the  VELOCITY  in  THE  FIRST  LAYER, 

SOC 

100C  REFRAC  2  COMPUTES  AS  OUTPuTl 

HOC  1)  THE  VELOCITY  IN  EACH  LAYER, 

120C  2)  THE  DIP  (IN  DE6REE8)  OF  EACH  LAYER  INTERFACE  AND 

1 SOC  S)  THE  LAYER  THICKNESSES  FOR  THE  DIRECT  AND  REVERSED 

1  ROC  PROFILES, 

150C 

IbOC  PROGRAM  REFRAC  2  IS  THE  INVERSE  OF  THE  MODELLING  PROGRAM 
170C  REFRAC  1, 

IBOC 

HOC 

200C  **•  LIST  OF  VARIABLES  AND  THEIR  MEANINGS 

21 OC 

220C  ALPHA (N )  ■  THE  VELOCITY  (OR  HAVE  SPEED)  In  THE  NTH  LAYER 
230C 

2AQC  ANGMNM  a  (ANGLE (R,N)MINU8)  *  TMtTAH(M,N)  •  PSI(H)  B 

2S0C  a  ARSIMSIN(THETAM)/SPEEDR(M))  (SEE  EON'S  IB,  2B  S  SB) 

2bOC 

270C  ANGMNP  b  (ANGLE(M,N)PLUS)  ■  THETAP(m,N)  ♦  PSI(M)  B 

2S0C  a  ARSIN(SIN(THETAP)/SPEEOR(M))  (SEE  EON'S  1A,  2A  k  3A) 

2V0C 

300C  ANGNNM  s  (ANGLt(N-l,N)MINUS)  b  THETA(N.(,N)  ♦  PSI(N«1)  ■ 

31 OC  a  AHSIN(SIN(THETAH)/5PEEDR(N-1 ) )  (SEE  ELUATIOn  SB) 

320C 

3S0C  ANGNNP  s  (ANGLE (N»1,N)PLUS)  b  TMETA(N«1,N)  ♦  PSl(N-l)  a 
SROC  B  ARSIN(SIN(TMETAP)/SPtEOR(N«l))  (SEE  EGUAT ION  JA) 

3S0C 

3bOC  C  ■  CONVERSION  FACTOR,  NAOIANS  TO  DEGREES  a  57,2957B 
370C 

3B0C  DELTN  a  THE  DIP  ANGLE  OP  THE  NTH  INTERFACE 
J90C 

«OOC  MMINUS(N)  s  THt  LAYER  'THICKNESS*  FOR  THE  NTH  LAYER,  REVERSED 
AlOC  PROFILE,  (SEE  FIGURE  1) 

A20C 

A JOC  HPLUS(N)  a  THE  LAYER  "TMICKNtSS"  FOR  THE  NTH  LAYER,  DIRECT 
AAOC  PROFILE,  (SEE  FIGURE  1) 

A50C 

AbOC  NLAYRB  s  (NUMBER  OF  LAYERS)  a  THE  NUMBER  OF  LAVERS  FDR  RHlCM 

A7oc  velocities  hill  be  calculated 

rboc 

AAOC  NM 1  s  (N  MINUS  1)  B  N* | 

SOOC 

510C  NX2LST  a  (NEXT  TO  LAST)  a  THE  NUMBER  OF  THE  NEX T»TU»L AST  LAYER 
S20C 

S30C  PSICN)  s  THE  ANGLE  BETHEEN  THE  SUMFACES  OF  THE  nTh  LAYER 
SROC 

5S0C  SPEEDR(N)  s  (SPttD  RATIO)  ■  SPEORN  a  THt  VELOCITY  IN  THE 


REFRINV  COST 
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ULt  PAGE  NO 
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5bOC  (N»l  )lt  LAYER  DIVIDED  BY  THE  VELOCITY  IN  I  HE  Mh  LAYER 

S70C 

5B0C  TMETAH  ■  (THETA  RINUS)  •  THET  AN { I , N )  ■  THE  ANGLE  BETREE*  THE 
590C  ITH»INTERFACE  NORHAL  AND  THE  HAY  OF  THE  HAVE  THAT  REFRACTS 

600C  ALONG  THE  NTH  INTERFACE  (NMJ,  this  lb  EDH  A  DOkN»AHO» 

btOC  TRAVELLING  HAVE)  , (SEE  FIGURE  I) 

620C 

BJOC  THETA?  •  (THETA  PLUS)  a  THE  TAP ( 1 >  N )  a  SAHt  AS  THETAH  EXCEPT 
B40C  This  IS  FOH  an  UPhARD-TRAVELCING  NAVE,  (SEE  FIGURE  1) 

B50C 

bbOC  TMINUS(N)  a  THE  INTERCEPT  TIRE  FOR  THE  NTH  REFRACTION  (FOR 

BToc  The  reversed  profile) 

BBOC 

B«OC  THIN8N  a  THE  RUNNING  (OECREpEnTINC)  Suh  OF  THE  INTERCEPT  TIRE) 

Tooc  used  to  corpute  hrinus  (see  eolation  «)  for  the  reversed 

TIOC  PROF  ILL, 

T20C 

TJOC  TPLUS(N)  a  BARE  AS  THINUS(N),  EXCEPT  FOR  THE  DIRECT  PROFILE 

UOC 

7S0C  TPLUSN  a  SARE  AS  THINSN,  EXCEPT  FOR  THE  DIRECT  PROFILE 
TBOC 

T70C  VMINUS(N)  a  (VELOCITY  MINUS)  a  HORIZONTAL  PHASE  VELOCITY  FUR 


7B0C  THE  REVERSED  PROFILE  DUE  TO  A  REFRACTION  UN  THE  NTH 

7<*0C  INTERFACE, 

BOOC 

BIOC  VPLUS(N)  a  (VELOCITY  PLUS)  a  HORIZONTAL  PHASE  VELOCITY  FOR 
B20C  THE  DIRECT  PROFILE  DUE  TO  A  REFRACT  ION' ON  THE  NTH 

baoc  interface, 

broc 

SSOC  VI  a  The  VELOCITY  in  THE  FIRST  LAVER 

BBOC 

870C 

BBOC  •  «*»•  EQUATIONS  USEO  *•••* 

BROC 

9UOC  THETAP(1,N)  4  P8K1)  »  ANSI N  ( ALPHA  (1  ) /V"! NUS  ( N )  ) 

910C  *  ANGHNp  (Hal)  CIA) 

920C 

9JOC  THETAM(1,n)  •  PSI(l)  a  ARSIS (ALPHA ( 1 ) /VPLUS (N) ) 

940C  a  ANGHNh  (Hal)  (1D) 

9S0C 

960C  THET AP (R i N )  4  PSI(R)  a  ARSIS (SIN { THE  TAP (H.l , N ) )/SPttDR (H) ) 

970C  a  ANGHNP  (2*) 

9B0C 

990C  TMETAR(R,N)  -  P5I(H)  a  ARSI N ( S I N ( T HET AR ( Ra 1 , N ) ) /SPEEOR  (R )  ) 

IOO0C  a  ANGRNR  ((B) 

1010C 

1020C  THE T A (N»I ,N)  4  PSI(N.l)  a  ARSIN (S In { THt T AP (N*2, N ) ) /SPEtOR (Na 1) ) 
lQjOC  a  ANbNNP  (MBNai)  ( A A ) 

1 040C 

10S0C  THETA(N«1,N)  «  PSI(Nal)  a  ARS In (SIN ( THE  TAR (Na2 ,N )) /SPEt DR (Nal ) ) 
10B0C  a  ANbNNR  (RaNaJ )  (Ab) 

1OT0C 

10B0C  ALPHA(Nal)/ALPHA(N)  a  S I N ( THE T A (Na l , N ) )  a  S I N ( ,5a ( ANUNNP4ANGNN* ) ) 
1090C  a  SPtEDH(N)  a  SPEDHN  14) 

UOOC 


1 


•  ' 


J5 


•  •  •  • 


RtTRINV  COnT  16IS1U4  0 <3/ ib til  Hit  PALE  Mi,  1 


moc  PSKN.n  ■  o,s*(an(,nnp  •  angnn«j  is 

1U0C 

1U0C  TtMP  1  a  (COSO  ML  TAP)  ♦  COS(lHtTAN))/ALPMA(M.l)  16 

1 1  MOC 

USOC  TtMP2  a  U,5*AlPHA(N*l)/80RT(l,  •  SPE0hN**2)  IT 

1160C 

1 170C  MPLU8(N-1)  ■  TEMP2* ( TPIU8 (6 )  •  SUM  TRQM  1*1  TO  4*2  Of 

USOC  HPLU6(I)*TERPl)  16 

U«0C 

1200C  HMINUS(N-I)  a  TfcMP2*(TMINUS(N)  >  SUM  THOM  I«i  to  N-2  Of 

U10C  MMlNU8CI)*TtMPn  19 


1220C 

1230C 

1240C  ***«.M..»ii»»M*»MM*«*******M* 

USOC  *****  START  PROGRAM  Rtf  MAC  2  ***** 

USOC  *********************«************* 

1270C 

USOC  **«  INPUT 

1290  Rt At  VPLU5(50),VMINUS(50),TPLUS(50),TM1NU5(SC) 

1J00C 

UlOC  ***  OUTPUT 

1320  RIAL  ALPHA (SO) ,HPLU8 (SO )'HMlNUS(50)'0tLTN 

13J0C 

1340C  VARIABLtS 

USO  Rt Al  SPEtDH(50),P6l(50) 

USOC 

UTtlC  «•**••  Rt AO  MODULI  ****** 

USOC 

1 390  Rt AD  1000*  Nl A YH3, V 1 

1400  1000  fORMAT(V) 

1410C  DECIMAL  POINT  IN  COLUMN  11 
1420  ALPMA(J)*V1 

1430  NX2LSTBNIAVKS-1 

1440C 

1450  00  10  N*2  *  MATHS 

14S0  Rt AC  1000,VPLUS(N)iVMINUS(N),TPLU8(N),TM1NUS(N) 

14S0C  DECIMAL  points  in  columns  3*  1 1  Ul  ANO  29 

1490  (0  CONTINUE 

1S00C 

1510C  «**••*  PRINT  MODUlt  ****** 

1S20C 

1530  PRINT  9000,NX2LST,V1 

1540  4000  FORMAT  ( 1 H 1 , 4 X , ' VfclOC J T I t S  ARt  IN  Mt T tKS/ M 1 LL I StC #  ', 

1SS0  4  *TIMtS  ARt  IN  M  J  LllStC ', / , 

1560  4  SXi'ANO  LAYER  THlCNNtSSLS  IN  PLUMS'*//' 

1570  4  5X  *  * NU  t  Of  Hi  TRACTIONS  ■  '#I2#'»  T IRS  T  »L A  Yt R  ', 

1560  4  'VELOCITY  ISt * ,f T , 3. /// * 

1590  4  5*, 'INPUT  DA  T  A I  PHASE  VELOCITIES  ANO  *, 

1600  4  'INTERCEPTS  OF  RtFRAC T IONS  '  ,  /  , 

1610  4  5X, 'MEASURED  ON  DIRECT  (♦)  ANO  RtVtRStO  (•)  PROP  ILLS « , // , 

1620  4  4X, 'iNTtRf ACt  NO,  PHASt  VtL*  PHASE  VtL-  T 

1630  4  9X,'T*') 

1640C 

1650  00  IS  Na2#NlA YRS 

1660  PRINT  91O0'N'VPLU8(N),vMINUS(N)'TPLUS(N)'TMINUS(N) 


HfeFHXN V  CUNT 
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1670  ' 
1600 
109OC 
17U0C 
1710C 
1720C 
1 7)0C 
1740C 
1750 
1760C 
1770C 
1700 
1700 

leooc 
1010 
1020 
10)0 
iBooc 
1B50C 
1060 
107OC 
1BB0C 
109OC 
1900 
191 OC 
1920C 
1930 
1940 
1950C 
I960 
1970 
190OC 
1990 
2000 
2010 
2020 

20  JOC 
2040C 
2050C 
2060C 
2070C 
2000 
2090 
2100C 

21  IOC 
2120 
2130 
2140 
2150C 
2160C 
2170 
210OC 
2190C 
2200 
2210 


100 

IS 


P0NMA1  (1H0,I9,4E,2F 13,3,21 11,1} 
CONTINUE 


******  COMPUT  AT  ION  "ODULE  ••••* 

ALL  CALCUL AT  IONS  ARE  PERFORMED  In  DO-LOOP  40 
DO  40  N*2,NLAYHS 

USE  EQUATIONS  I A  4  10  TO  3  INC  ANGMNP  4  ANGMNM  (Ma)) 
ANGMNP  *  AR5IN(V1/VMJNLS(N)) 

ANGMNM  a  ARSINCVI/VPLUSIM  ) 

TPLUSN  a  7  PLUS (N) 

TMINSN  a  TMlNUS (n) 

NM 1  a  N*1 

17  THfc  FIRST  LAYER'S  PARAMETERS  Aht  bEING  COMPUTED, 
SKIP  D0*L00f>  30  {GOTO  351 
IF  (N  ,EU,  2)  GOTO  35 

DU*LO0P  30  COMPUTES  THE  SUMS  IN  EQUATIONS  0,  AND  9. 
DO  30  Ma2,NMl 


USE  EQUATIONS  2A  4 
TMETAP 
THETAM 

USE  EQUATIONS  2A  4 
ANGMNP 
ANOMNM 


20  TO  HM)  TMETAP  4  TMtTAM 
a  ANGMNP  a  PSIl»*l) 
a  ANGMNP  4  PSK Mat) 

2B  TO  FIND  NE*  ANGMNP  4  ANGMNM 
a  AHSIN(SlN(TMETAP)/SPEtDH(M)) 
a  arsin(simtmetam)/speeom(M)) 


30 


TEMPI  a  (COS ( THE  T AP )  ♦  COS (T HE T AM)  )/alPhA (M*i ) 
TPLUSn  a  TPLUSN  »  hPLUS t M* l ) *TEMP I 
TMINSN  a  TMINSN  a  MM INUS (Ma 1 ) * TEMP 1 
CONTINUE 


UPON  EXITING  OU-LOOP  30,  ANGMNP  4  **GMNM  AME  (SEE  EUNS  )A  4  3b> 
TmETACN»1,M  */a  PSI(Nal),  NtSPECTIVtl* 

(THAT  IS,  ANGNNP  4  AnGnnm ,  ht SPEC T l VEL Y 1 


35 


ANGNNP  *  ANGMNP 
ANGNNM  a  ANGMNM 


USE  EQN  M,  FIND  SPEEDRtN)  a  ALPHA C Na 1 J /ALPHA (N J ,  THEN  ALPHA  C  N  J 
8PEDKN  a  SIN(0,5*(ANGNNP  ♦  ANGNNM)) 

SPEt DR  < M  «  SPEOHN 

ALPHA ( N )  a  ALPHA(NM) )/SPEUMN 

USt  EQUATION  5  TO  FIND  P8J(N*1J 

PSl(NMl)  a  0,5* (ANGNNP  a  ANGNNM) 

USE  EQUATIONS  6  4  9  TO  FIND  MPLUS(Na)}  4  HM1NUS(N»1) 

TEMP2  *  ALPMA(NMI)/12,*5GRTU,  •  SPEURN*8PE0RN ) ) 
MPLUS(NMI)  a  TPLU5N*TEMP2 


J7 


REFRINV  COKt 
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2220  H**INU5lN**l  J  ■  TM1NSN«H«P2 

2230  40  CC*TI*Ut 

2240C 

2250C  OUTPUT  PRINT  MODUUt  ***** 

2260C 

2270  PRINT  9500 

2280  9500  FORMAT  (1*0,//, 16X, *«•»•»  CALCULATED  RESULTS  •»•»•*,/# 
2290  8  5X,'ThE  HAVE  VELOCITIES,  INTERFACE  DIPS  AM)  ', 

2300  8  'LAYER  THICKNESSES'*//# 

2310  8  6X, 'LAYER  NO,  VELOCITY  DIP  (DEG)  M*',8X,'H«*) 

2320C 

2330  DELTn  a  o,0 

2340  C  a  57,29578 

2350C 

2380  DO  50  Nal , NX2LST 

2370  PRINT  98O0«N*ALPHA{N), DELTN, HPLUS(N},HRINLS(N) 

2380  9600  rOHRAT  { 1 10 ,9X, F 6 . 3* 3F 10 , 1 > 

2390C  CALCULATE  DELTNI  CONVERT  ANGLES  PROP  RADIANS  TO  DtGREES 
2400  DELTN  a  C*PSI(N)  4  DELTN 

2410  50  CONTINUE 

2420C 

2430  PRINT  9700, NLAYRSiALPRA(SLATRS), DELTn 

2440  9700  FORMAT  Cl  1 0,9X,F6, 3 , F 10, 1 , //// ) 

2450  8T0P 

2460  ENp 
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10  CALL  FPARAh(l,80) 

20C  This  PROGRAM  XAS  *«ITTEN  6T  GEORGE  A,  SKOGLANO  AND  CHttFtU 

i0C*»*»»**»*»*»**»  CROSSMOLE  SEISMIC  INTERPRETATION  *•«*»****••••»••*•••** 
0OC  AND  MODIFIED  BY  0» A  In  k,  SUTLER  (1977)  TO  HELP 

SOC  DEVtLOP  A  PLAUSIBLE  TRUE  VELOCITY  INTERPrETaT ICn  FROM  THt  APr*HEn T 

60C  VELOCITY  PROFILE  MEASURED  In  Th£  FIELD  BY  CROSSHOLE  SEISMIC 
TOC  TECHnIUUES,  TRAVtu  PATHS  ARE  ASSUMED  TU  BE  GOVERNED  BY  SNELL'S 
BOC  LA*  OF  REFRACTION, 

«0C  FROM  THt  INTERPRETED  TRUE  VELOCITY  PROFILE,  A  COMPUTED 

100C  APPARENT  VELOCITY  PROFILE  IS  DERIVED  fOR  COMPARISON  hITH  THE 
HOC  FIElD  MEASURED  DA1A,  In  ADDITION,  AN  OPTION  IS  AVAILABLt  Tu 
120C  INPUT  ARY  TRUE  VELOCITY  PROFILE  FROM  »HICM  AN  APPARENT  VtLOCHY 

I30C  PROFILE  CAN  BE  CONSTRUCTED  AS  A  FUNCTION  OF  A  SPECIFIED  HOLE 

140C  SPACING  AND  DEPTh  INTERVAL  CONFIGURATION, 

150 

160 

1  TOC  USER  HINTS  (JULY  1977) 

ISO 

i9oc  i,  this  program  can  be  useo  fur  shear  *ave  as  well  as  compression 

200C  RAVE  VELOCITIES, 

210 

220C  2,  THE  FUNDAMENTAL  INTERPRETATION  CAPABILITY  OF  THIS  PROGRAM  js 

230C  BASED  UPON  THE  MEASUREMENT  OF  0*E  TRUE  VELOCITY  IN  EaCh  VELOCITY 

20OC  LAYER,  THE  hlOEST  POSSIBLE  HOLE  SPACING  THAT  *ILL  GIVE  ONE 

250C  MEASURED  TRUE  VELOCITY  IN  EACH  VELOCITY  LAYER  IS  PREFEHRABLE  TO 

2ooc  a  closer  spacing,  because  only  apparent  velocities  definitively 

270C  ESTABLISH  VELOCITY  LAYER  INTERFACES,  IN  GENERAL,  THE  IDtAL  DATA 

280C  Base  for  each  VtLOCITY  LAYER  *UULU  have  tro  apparent  velocities 

290C  RELATIVE  TU  THt  S*mE  INTERFACE  AND  ONE  TRUE  VELOCITY, 

300 

310C  3,  THF  INTERPRETATION  OF  A  PROFILE  BEGINS  AT  THE  HIGHEST  GtUPHQNt 

320C  ANO  PROCEEOS  OUxNxARO,  UNLtSS  OTMERMSt  SPtCXEZtD,  ThE  FIRS' 

330C  VELOCITY  IS  ASSUMED  TO  BE  A  TRUE  VELOCITY  hITM  SUCCESSIVE 

340C  VELOCrritS  THtN  SCRUTINIZED  FOR  INTERPRETATION  UNTIL  THE  NEXI 

350C  TRUE  VELOCITY  IS  E 'COUNTERED .  In  CONCEPT  ,  THE  PROGRAM  MOVES'00*N 

360C  The  profile  FROM  true  VELOCITY  Tu  TRUE  velocity  RITH  any  number  of 

370C  APPARENT  VELOCITIES  (OR  NONE  AT  ALL)  IN  BET»E  fc N  ADJACENT  TRut- 
380C  VELCCI TIES, 

390 

400C  M,  IF  A  FIELD  ME ASuRCD  PROFILE  DOES  NUT  CONTAIN  A  MtASURED  I  Rut 

01OC  VELOCITY  In  EAC"  VELOCITY  LAYER,  The  OPTIUN  TO  INPUT  a  TRLt 

020 C  VELOCITY  PROFILt  CAN  CENERATt  A  COMPUTED  APPARENT  VtLCtITY  PROF  ILL 

430C  That  "ILL  COINLIDE  *ITm  the  field  MEASURED  PROFILE  IF  THE 

440C  HYPOTHESIZED  TRUfc  VELOCITY  PROFILE  Is  A  VALID  POSSIBILITY, 

050 

460C  5,  an  INPUT  OPTION  IS  AVAILABLE  TO  SPECIFY  ThE  UtEPtST  TRUE 

470C  VELOCITY,  SINCE  MUST  bUREhCLES  END  AT  A  HARDER  MATERIAL  Than 

480C  ENCOUNTERED  ELSEWHERE  IN  THt  PROFILE,  THt  minimum  TImE  PATH  AT 

49 OC  The  BOTTOM  OF  Tnt  BOREHOLE  PROBABLY  GOES  DEEPER  THAN  THE  BORtHOLt 

500C  DEPTH,  THE  DEPTH  TU  THE  LAST  VELOCITY  may  ALSO  BE  SPECIFIED  IF 

51 OC  A  DEPTH  GREATER  Than  THE  DEEPEST  GEOPHONE  IS  DESIRED, 

520 
530C 
540C 
55'. 


6,  TRAVEL  PATHS  ARE  ASSUMED  TO  BEGIN  AND  END  IN  THt  SAMt  VtUQClTV 
LAYER,  ALTHOUGH  NOT  NECESSARILY  AT  THE  SAME  DEPTH, 
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Sooc 

570 
5  (JO 
590C 
bOO 
blOC 
620C 
bSOC 
b40 
b5QC 
660 
b70C 
680C 
690C 
700 
710C 
720C 
730C 
700C 
7  S»0 
7oOC» 
770 
7B0C 
790C 
SOOC 
610 
620C 
630C 
640C 
650C 
BbOC 
870C 
660C 

«voc 

900C 

910C 

920C 

930C 

9O0C 

950C 

960C 

970C 

9H0C 

990C 

1000C 

1010C 

1020C 

1O30C 

1040C 

1050C 

lObOC 

1070 

loeoc 

1090C 

UOOC 


7,  HOLE  COORDINATES  ARE  NORTH  POSITIVE,  tAST  POSITIVE,  AND  DEPTH, 


FUTlRE  IMPROVEMENTS 

1,  PROVIDE  FOR  A  TRAVEL  PATH  TO  BEGIN  In  One  l*YER  and  END  IN 
THE  ADJACENT  LAVER,  THIS  CAPABILITY  *>ILL  ALLOM  FOR  MORE 
SOPHISTICATED  SQURCE-GEOHHONE  AND  MULTIPLE  GEOPHONE  CONFIGURATIONS 

2,  PROVIDE  FOR  A  SPECIFIED  INTERFACE  SLOPE, 

1,  PROVIDE  A  MODEL  TO  GENERATE  A  MEISSNER  NAVE  FRONT  DIAGRAM 
FOR  COMPARISON  »ITH  A  MEISSNER  NAVE  FRONT  SURVEY  TO  BE 
CONDUCTED  IN  CONJUNCTION  NITH  THE  CROSSMOLE  SLRVtV, 

4,  INCORPORATE  UPHOLE  TIMES  TO  AID  IN  THE  INTERPRETATION  AND  TO 

provide  vertical  nave  velocities  un  a  similar  manner  to  the' 

U,S,  BUREAU  OF  MINES  PRUGRAM  FOR  REFRACTION  SEISMIC  PROFILING) 

FOR  CROSSHOLE  SURVEYS, 

program  Input  A**********************************************-**** 

FIRST  CARD  -  FORMAT  ( 1 2Ab ) 

1-72  DATA  IDENTIFICATION 


SECOND  LIST  •  FORMAT  (4 15 , 4F 1 0 , 0,215 ) 

I- 5  INPUT  OPTIUN  COOt 

1  FOR  ARRIVAL  TIMES 

2  FOR  APPARENT  VELOCITIES 

3  FOR  TRUE  VELOCITY  PROFILE  AND  ARRIVAL  TIMES 

u  FOR  TRUE  VELOCITY  PROFILE  ANU  APPAHtNT  VtLOCITAtS 
5  FOR  TRUE  VELOCITY  PROFILE 
6-10  STORAGE  KEY  FOR  USE  NITH  OUTPUT  OPTIONS 
1 1-15  OUTPUT  UPTION  CODE 

1  FOR  TABOUM. APPARENT  VtLOCITY  AS  A  FUNCTION  OF  "ULt  S 

2  FUR  SUMARV 

3  FOR  5UM  T -0 

7  FOR  CARRYING  OVER  THE  PRtVIOUS  TRUE  VELOCITY  PROF ILt 
lb-l 7  TYPE  OF  SUMMARY  TABLt  DESIRED  (FOR  USE  »ITM  IUP2S2)' 

i  for  partial  summary  three  hole  set 

e  FOR  FULL  SUMMARY  T«REt  MULE  SET 
18-20  NuKhtH  OF  SHOT  RECORDS  PER  HOLE  SET 
>1-40  HOLE  PAIR  AZIMUTH 
21-30  HUKIZUNTAL  DISTANCE  BETNEEN  BOREHOLES 

41-50  FIRST  LAYER  TRUE  VELOCITY  (IF  NOT  DEFINED  BY  THE  0*  T  A ) 
51-bO  DEEPEST  LAYER  THE  VELOCITY  (IF  NOT  OtFINtO  bY  Trt  DATA) 
6 1 -b5  DEPTH  TO  THE  DEEPEST  LAYER  (IF  NNQnN) 

bb-70  f.UHbtK  UF  TRUE  VELOCITY  LITERS  FOR  InPLT  OPTIONS  3»u,5 
71-75  GEOPHUNt  SPACING  (FOR  USE  **ITM  INPUT  OPTION  5  ONLY) 

70-BO  OUTPUT  PUNCH  OPTION  (FOR  USE  -ITH  OPTION  5) 

THIRD  LIST  •  FORMAT  (BFIO.Ol 

1-10  SHOTPOINT  DEPTH  (Z-COOHOINATt > 

II- 20  SHOTPOINT  LOCAL  X-DEVIATIOn  (NORTH  CINttTIUN  POSITIVE) 
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1I10C  2 1 >10  BHOTPOUT  LOCAL  y-QEVIaTION  (MS  T  DIRECTION  POSITIVE) 

1 120C  31-40  GEOPMUNE  DEPTH  (Z. COORDINATE) 

1130C  41-50  GEOPHOnE  LUCAL  *-0fcYIAT10S 

1140C  51-60  GEOPHONE  LOCAL  V. DEVIATION 

1150C  61-70  ARRIVAL  T1«E,  SECONOS  (FOR  USE  »ITm  INPUT  OPTION  t  Aso  3) 

1I60C  7 1 -00  APPARENT  VELOCITY  (FOR  USE  *ITh  InPlT  OPTION  2  AND  3) 

1170  COMRON/INPUT/DS(50,20),OG(50,20),S5(50,2Q),i&(50,20), 

1100  6  5FGS{50,20),DF&S(bu,20),TH(50,20),VA(50,20),DPl50,20) 

1190  A  ,SX<50),SY(50),3Z(50),GX(5n>,GY(50),GZ(50) 

1200  COpPON/OOTPOT/VL (20,20) #0L (20,20), SVL(2O,20),K (20,20) ,TT (6) 

1210  s*  VC (20  >20 ) 

1220  COpMUN  /CONSTA/  0ELGS,VFJRST,VLAST,ULLAST, TlUt 

1230  ChARACTE R*24  0IN(2) 

123b  CH*RACTER*60  TITLE 

1240  DATA  DIN(2)/lh;/ 

1241  ISTAT*0 

1242  GO  TO  2 

1243  1  CALL  0ETACH(1,ISTAT, ) 

12b0  2  PRINT  10 

1260  10  K)H«AT CENTER  THE  name  Of  THE  DATA  FILE  YOU  -ANT  TO  PROCESa") 

1270  REAO  820  >  D I N  ( 1  ) 

1280  IF (OlN(l),EU,0h  ) GO  TO  944 

1290  CALL  aTTACM(1,01n,3,Q,I$TAT, ) 

1300  820  FORHAT(V) 

1310 

1320  DATA  AF AC  /  0,02  /,  CMC  /  0,0b  / 

1330 

1340  PRUT  895 

1370  READ(1,800)  TITLE 

1380  REACt 1.81 0)LIN,lOPl,N,I0P2,ISLH,H,uIST,A21M,VFIRST,VLAST,CLl AST, UAX, 

1390  A  DELGS.IPUN 

1410  IF (N,tU,0)  N*1 

1420  IF (IOP1.EU.0)  GO  TO  250 

1430 

1440  DO  200  1*1,20 

1450  DL(I,N)*0,0 

1460  VL(I,N)*0,0 

1470  SVL(I,M*0.0 

1480  200  K(I,N)«0,0 

1490 

1500  250  IF (H.GT.JHAX J  JHAX*« 

1510 

1520  IF (IUP1 ,EU,0)  GO  TO  4|0 

1530 

1540  400  CAlLRUPOT  (IOP1,n,IOP2,h,OIST,AZIP,IhAX) 

1550 

1560  410  I F ( I0P2, EU, 0 )  GO  To  5y0 

1570  IF (10P2.EU.1)  CALL  TAHDL"  (H.1MAX) 

1580  IF(IOP2,EU,2)  CALL  SOMOV  (JMX.ISUH) 

1590  IF (IOP2.EU, J)  CALL  SUiT-C  (P,N) 

1600  IF (IOP2,EG,7)  CALL  CARRYC  C,N,LNI*AX) 

loio  jmax*o 

1620  IF(IOPl.EO.O)  GO  TO  1 

1630  GO  TD  600 
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1650  500  IHU'Pl.tU.t.UR.U'Pl.fcO.i)  CALL  COMRU  C I , J,R , N, JMAX, AF AC > 

1660 


1670 

600 

1660 

169C 

1700 

1710 

1720 

1730 

17«0 

800 

1750 

610 

1760 

695 

1770 

999 

1760 

1790 

1600 

1610 

1620 

1830 

1690 

1850 

I860 

1661 

1670 

I860 

1590 

51 

1900 

1910 

1920 

600 

1930 

1990 

1950 

1960 

1970 

1960 

1990 

SOO 

2000 

2010 

600 

2020 

810 

2030 

2090 

2050 

CAlL  0PHIN1  (I,Jli'.,N,IH*X,SNOF,SSMJfCf  AL,XUP1) 

CALL  STATS  ( M ,  SNDF  ,  5SND ) 

IF (IPUN,E0,1)  CALI  UPUNCH  ( M , N , I » A  X  ,  D  I S T  ,  A*  I  M  ) 

CO  TO  1 
FORMAT (A64) 

FORMAT(V) 

FORMAT  ( 1 M 1 ) 

STCP 

END 

SUBHOUTINtH INPUT  <  I  <JP  1 ,  N  ,  I0P2  ,  M,  D I S  T  ,  AZ 1 M  ,  I  HA  X  ) 

CORMUN/lNPUT/DS(50,20)fDG(50,20),SS(50,20),SG(5U,20J, 

A  SFGSl5O,20),0FGSC5U,20),TR(b0,20),VA(5U,2Q),DPl5<j,20) 

A  ,SX(50),SY(50),SZ(50),CX(50),CV(50),UZ(50) 

COpMUN/CUTPUT/ VL (20,20),OL(20,20),SVL(20,2o),K(20,20},TT(6) 

A, VC (20,20) 

COkmon  /COnSTA/  OtLG&,VFlRST,VLASl,ULLAST, TITLE 
CMaRAC  TER*6U  TITLE 

PRINT  51,  TITLE 

FORMAT (T2,"CR0SSM0Lt  DATA  .«,AoO,//) 

PRINT  600,  DIST 

FORMAT  (  5X,  J6MM0K1Z0NTAL  DISTANCE  8tT«tfcN  MGLES  IS,Fb,l,//j 

IF (I0P1 ,Nfc,5)  CO  Tu  600 
GZ(I JaotLGS 
SZ(I)«0ELC6 
00  500  J#2,M 
SZ{J)*SZ(J-l)AOELbS 
GZ(J)»GZ(J"1 ) tDELGS 

PRINT  610 

F ORM AT (o X, SMOEPTM, «X,6M0IRECT,iX,7M ARRIVAL, iX . 8H APPARENT, 

ASX , OmSHOT  HOLE , 5X ,  6hGE 0  HOLE , / , 2 X , OR Snu T , 0 X  ,  JhGt L , 2 X  , 

»0ho I  STANCE , 1X,«HT IMF , jX,«HVEL0,6X,5Hx»ULV, Jx^mt-DEV, 

A3X,5mX»DE V,3X,5mY«0EV,//) 


206U 

2070  ANGLE*  0,017U5»AZI>“ 

2060  XFaC«OIST«COS(ANCLE  ) 

2090  YFaCsOIST*SIn(ANGLE) 

2100 

2110  00  100  J>1,m 

2120 

2130  SX(J)*0,0 

2100  SY(J)*'J(0 

2150  GX(J)«0,0 

2160  100  GY(J).';0,0 

2170 

2160  IF (ILP1,E0,5)  GO  TO  300 
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2190 

Oc  2*0  J«l,R 

r 

2200 

If  (lUPl.tG.l.UR.loPl.EL.i)  READ  (l,62(,)LlN,SZ(J),Sx(J),SY{J),GZ(J), 

2210 

fc  GX(J),GY(J) 

2220 

If (IUPl,tU,2,0h, I  OP  1, EC, 4)  k  t  A  0  ( 1 #830 )LlN,SZ ( J ) , SX (J  )  »SV ( J )  ,G2 { J  )  , 

2230 

X  GX(J),GY<J) 

2240 

2*0 

CONTINUE 

224* 

DO  6  J»l#f 

22*0 

If (lOPl,EO,l,OH,10Pl.tU,3)Rt AC(1 ,820)UIN,TR(J,N1 

i . 

2260 

If (l0Pl,tU,2,0R,I0f'l,E0#4)  RtACU,620)LlN,VA(J,N) 

22b* 

6 

CONTINUE 

2270 

IF  (lOPI,EW,2,UR.IUPl,tU,4)  GO  TO  300 

2280 

DU  *  J*  1  ,  M 

2290 

* 

TK(J,N)sTR(J, NJ/1000, 

2i0  0 

30u 

CO  200  J«1,M 

2310 

DfGSCJ,N)«G2tJ)-S2(J) 

2320 

Sf GS(J,N)*(GX(J)AXF AC«SX(J) )MUXCJ)4XF AC-SX(J)) 

2330 

SfGS(J,k)«Sf GSU,v)*(GY(J)AYf AC-SY(J))*(GY(J)*Yf AC-SY(J)) 

« 

2340 

SFgS(J,N)«SURT<SF  USCJ.N)) 

23*0 

SStJ,N)»0,0 

. 

2360 

SG(J*N)6SS(J*N)*5f GS( J,n) 

2370 

DS( J»  N)»S2 (J ) 

2380 

OG(J,M)«GZ(J) 

2390 

MYP0SU*DFGS(J,N)*1>FGS(J,n)+SF6S(J,n)«SFGS(J,R) 

2400 

DP(J,N)*SORT (HYPOSO) 

2410 

If  (I0P1,EU,1,0R,I!)P1  ,£0,3)  vACJ,N)«OP(J,N)/Tk(J,N) 

• 

2420 

If (I0Pl.£Gt2l0R,lUPl.fcU,4)  Tk(J,N)»OP(J,A)/VA(J,N) 

2430 

If (10P1.EU,*)  VA(J,N)*0,0 

2440 

If (IOPl.fcU.*)  TR(J,N)SO,0 

24*0 

200 

PK  J  NT  64  0  »  DS(Ji»«),DMJ,A),DflJ|N)|TkU,A),V»(J,x),SXlJ),Snj), 

2460 

2470 

A  GX ( J ) i GY { J } 

2480 

If  {ll)Pl,iU,i,0H,lf:Pl,tU,2)  GO  TO  900 

2490 

HEAD  (1,8*0)  Ll4,(DL(I,N),I*I,lrtAx-l) 

T" 

2*00 

HEAD  l 1,850 )LIN, (VL(I,9), I*1,I«AX) 

V- 

2*10 

860 

FORMAT  (  //  ,  32MSPE  C  If  It  0  TPOt  VELOCITY  PKUFIU  ) 

2*20 

PRINT  860 

2*30 

OU  400  1*1  ,  I M  A  X  •  1 

2*4  u 

400 

PRINT  80*,  VUI,6),Dtll*N) 

2**0 

PRINT  865,  VLUMAX.S) 

2*60 

86* 

f  URMAT  (2oX,F9,l  ,/,30X,f 9,1) 

2*70 

Wt  TORN 

2S8  0 
2*40 

900 

COsTINUfc 

2600 

IF (Vf IRST .GT.0,0 )  PRINT  672,  VF1RST 

-  • 

26  10 

If (VLAST.GT.0,0)  PRINT  874,  VLAST 

2o2i’ 

IF  (DLL3ST, GT.O.O)  PRINT  876,  DUAST 

263u 

Rt  T  URN 

2640 

872 

FUrMAT  (/,10X,*ORTRt  FIRST  L*Yf.»  TRUE  VELOCITY  *AS  SPECIFIER  TO  8t 

26*0 

*  ,F8,0) 

- 

2060 

874 

FORMAT  (/ , 1  OX ,*2m T m£  DEEPEST  L* Y t R  TRUE  VELOCItY  «A5  SPECIFIED  TO 

• 

2670 

XHE  , f  6  t  0 ) 

2680 

B7o 

FORMAT  (  10X,*lMTMt  DtPTR  TO  T«t  DttPtST  LAYtK  "AS  SPECIFIED  TO  0 

2690 

At  ,F7,1) 

2700 

620 

Forma  t  c  v  j 

271(i 

630 

FORMAT (V) 

:  • 
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2 720  640  FORMAT  (Tl,F6.l,Te,F6,l,TlS,F6,l,T22,F 7.4,Hfl,F7,0,T36, 

2710  «2F6.2,T5S,2F8,2) 

27<40  850  FURmaT(V) 

2750  £N0 

2760  SUBROUTINE  CONTRO  { I , J , r , N , I R* x  ,  *4 *C  ) 

2770 

2780  COMBOS/ INPUT /OS (50,20) ,Db(50,2U),SSC5u,20),SGC50,20), 

2790  &  SFGS(50,20),DF65(50,20),TM(50,20),V44(50,20),OP150,20) 

2800  COfMON/OOTPUT/ VL (20 ,20 ) , OL (20 ,20 ) , SVL (20,20 ) , K (20 , 20 ) , T 7 (6 )  ' 

2010  C Um mon  /CONST*/  DELOS, VFIH5T,VL*ST,DLLAST, TITLE 

261)  CM*K*CT£H«60  TITLt 

262u 

2610  PRINT  110, TITLt 

26440  110  FORMAT  (///,T2,"CRUSSMULE  UlAGNOSTIL  -",*60,///) 

2650 

2660  161 

2870  JS| 

2660  IF(VF  IRST.LE.0,0)  61)  TO  10K 

2690  IF(VFIBST,GT,0,0)  PRINT  810,  VF1RST 

2900  810  FORMAT  (  2X , 59MCAUT ION  «  THE  FIRST  LAYER  TRUE  VELOCITY  NAS  6PE C I F I 

2910  *EO  TO  BE  ,F7,0) 

2920  IF ( V A ( 1 , N ) / V  A (2, N ) • bT . 1 « 0- AF AC «  AND, V  A ( 1 , N ) / V A (2 , N ) t Li • 1 • 0 6*7  AC )  00 

2930  ITO  100 

29440  CO  TO  TOO 

2950 

2960  100  PRINT  820,  VA(l,N),0b(l,N),VA(l,N),Ob(l,N) 

2970  820  F0RMAT(12x,18HM0t*EVtR,  SINCE  THE,F7.0,3H  *T,F6,1,21H  IS  APPARENTLY 

2980  t  A  TRUE/12X,57hVEL0CITY,  THE  INTERFACE  bETaEEn  THE  SPECIFIER  FIRST 
2990  6  LAYER/12X, ITHTRUt  VELOCITY  ANU,F7,0,22R  MAy  BE  SHALLO-ER  THAN, ft, 

3000  »1,RH.  CHEC44/  1  2X,  445HSE  ISMIC  REFRACTION  0A1A  FOR  THIS  POSSIBILITY,) 

3010  300  IF(J,EO,M)  UO  TO  4400 

1020  IF(J.GT.M)  RETURN 

3030  ARsVA ( J , N ) /VA ( J  ♦  1 ,N) 

3040  IF (AR.GT,1,0-AFAC,AND.AH,L1,1.06AFAC)  GU  TO  600 

3050  IF (AR.Lt.l  ,0-AFAC)  GO  TO  700 

3060  IF (AR,Gtal,06AFAC)  GO  T0200 

1070 

3060  400  VL(I,N)»VA(J,n) 

1090  Svl(I»N)»8VL(I,n)6VL(I,n) 

3100  K(I,N)*K(I,N)61 

3110  IhaX«I 

1120  J«J»1 

3150  GO  TO  300 

3140 

3150  200  C*Lt  UPTIME  ( 1 , J  ,  m , n , I  MAX  ) 

3160  GU  TO  300 

3170 

1180  700  CALL  OURNTM(I,J,M,N,IMAX) 

3190  GO  TO  300 

5200 

3210  RETURN 

3220  ENC 

3230  SUBROUTINE  URT Ime ( I , J , m ,n , I  max  ) 

1240 

3250  CO-mON/I NPuT /OS (5g, 20 ),UG (50,20 ),S5l50, 20 ),SG (50, 20), 
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3260 

3270 

3260 

3290C 

3300 

3310 

3320 

3330 

3340 

33S0C 

3360 

3370 

3380 

3390C 

3400 

3410 

3420 

3430 

3440 

3430 

3460 

3470 

3460 

3490 

3300 

3310 

3320 

3530 

3540 

3550 

3560 

3570 

3300 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3600 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3700 

3790 

3600 


fc  SFGSl50,20),DFbSl50,20),TK<5o,20),V*C50,20),DPl50,20) 

COMMON/OUTPUT/VC(20,20>,DCt20,20},Svl(20,20),N(2ti,20) 

***  LOC*US  INTERFACE  FOR  VECOCIUES  DECEASING  »ITh  OEPTh  •••«•*••••• 

IF(OG(J,N),fcG,UGU*l,N)tANO,CS(J,N>tLE,DMJ»l,Nn  GO  TO  260 
J04l 

205  JUU4J4JS 
PRINT  200* 

200  FORMAT  (25X,  *E XECUTIQN  CHEC*  •  C*rtR*,l3,*  -  DEPTH*, 13, 

6  »  •  UP*, 12) 

VL(1,N)«VA(J,N) 

VU<Itl*N)»VA(JUU,N) 

DL(I,N)»TRtJ*l,N) 

ADjS9=VC ( I »N) *VC ( I ,N)«VL (I*1/N)»VL(J*1,N) 

ADjaSQRT (AOJSU) 

DU(I,N)0DL(I,N)«SFG8U*l,N)/VUI,NJ 

DL(I,N)aDL(i,N)*VL(I,N)/AOJ 

DC (I , N)«0,5»DL (I,N)«VC(I*1,N) 

DC  ( I  ,N)*DL  ( I »NJ“0, 5*DF f»SJ  J*1  ,N) 
OC(I,N)aDG(J*l,N).OFGS(J*l,N)«DCtI,N) 

IF(DC(I,N),GT,DG(J,N),ASD,DClI,N>,CE,OG(J*t,S))  GO  TO  260 

IF(JUU.EU.M)  GO  TO  200 

IF  (VA(JUU,S),CTtVA(JtJU+l,N))  GO  TO  260 

JBaJHAl 

GO  TO  205 

260  IF  C0C(I»M.GT,DG<  J , N ) , AND . V  A l J ,n ) .EG . VL ( 1 ,N )  ,*NO, 

kVA(J*l,N).EUtVLll+l,N)>  PRINT  527,  OC(I,N),Db(J,N),k>C(I,S) 
IF(Oca.M,GT.OG(J«l,N),OR,OC(I,N>,Ck,Db(J,Nn  DC  ( I ,  s  )  »DG  I J ,  N  >  ♦  1 . 0 
SVu(I,M»SVC(I,N)4VCU,M 
R(l,N)6«(I,N)4l 
KUA1,N)«K(I*1,N)*J0.1 

SVl(I*1,n)bSVL(I*1,N)  +  (JB«U*VCU*1,N) 

IH*K«l 

1=1*1 

4*J*JB 

527  FORMAT(T3,*CAuTIO'*  -  THE  INTERFACE  CALCUCATEC  TO  Ht  »T*,F6,1, 

S/T5, 'COULD  BE  ANYwHtRt  BETWEEN *,F6, 1 , *  AND*,Fe,l) 

RETURN 

260  PRINT  550,  V3(J,N),DG(J,N),VA<J+l,N),DG(Jtl,S) 

550  F0rm*T(T3,'CAuTIun  *  THE ' ,F  7 , 0  *  '  AT  GEOPHOM  ntPTH»,F6,i, 

6»*NO  THt*,F7,0./*AT  GEUPHONE  Ot PTM* , F e , l , *  SHOUCO  Bt  tOUAC,') 
VC(I,N)»»*(J,N) 

SVU(1,N)=SVC(1,N)*VC(I,N) 

MI,N)«K(I,N)*1 

J«J*1 

RETURN 

END 


« 


K7 


CROSS 


COnT 


10|24|  4  05/26/82 


HUE  PACl  NO 


6 


3610  SUBROUTINE  D0»nTH(I,J,h,n,I*AX) 

3620 

3630  COpHON/1NPUT/05<5o,20),CG<50,20),SS(50,20),SG<50,20), 

3600  o  SFGS(50,2U),OFG8(56,20),TR(5o,20),vA(5u,20),DPl5u,20) 

3650  COphON/OUTPUT/VL(20,2o),DL(20,20),SVL(20,20),k<20,20) 

3860  COMMON  /CONST A/  OtLCS, VFIRST , VLAST ,ULL*ST , TITlt 

3861  CHaRACTER*60  TITUt 
3670 

3660C  •**  LOCATES  INTERFACE  POR  VILCC I T It S  INCREASING  »ITH  DtPTH  *••••«••••• 
3890 

3900  JAtl 

3910  705  JJjbJAJA-1 

3920 

3930C 

3900  PRINT  200,  I , J , J A 

3950  200  F0rmaT(25X, 'EXECUTION  CHtC*  •  LAYER', 13,'  •  DEPTH*, 13, 

3960  8  <  •  DOAN’, 12) 

3970C  . . . . . 

3960 

3990  VU(I,N)»VA(J,N) 

9000  VL(I*1,N)»VA(JAJA,N) 

9010  IF (I, EQ.l, AND, VFIRST, GT. 0,0, AND, J,tG,l)  VLC1,N)«  VPIRST 

9020  IF (J*JA,GT,H,AND,VLAST,6Tt0,0)  VL ( I ♦  1 , N ) «VUAS T 

9030 

9040  OL(I,N)»TH(JJJ,N) 

9050  ADjSO»VU(I*l,N)*VL(I*l,N)AVt(I,N)*VUn ,N) 

9060  IF (AOJSO.Lt.O.O)  PRINT  501,  DG(J,N) 

4070  ADjaSORT (AOJSU) 

9080  0L(1,N)*DL(I,N)*SFGS(J,N)/VL(!+1,N) 

9090  IF  (DLU,N).LTt0,0)  PRINT  503,  UG(J,N) 

9100  DL(I,N)aDL(I,n)*vL(I*1,n)/aDJ 

4110  DL(I,N)«0,5aOL(I,N)*VL(I,n) 

«12o  0U(I,n)«Dl(I,n)-0,5«DF6S(J,N) 

4130  IF  (ULU.M.LT.O.O)  PRINT  505,  UG(J,N) 

4140 

4150  0L(I,N)«DL(I,N)»DF6S(JJJ,N)*0S{JJJ.N) 

4160  IF (DG(J«JA,N),Nt,DG(JJJ,N),ANC,UU(I,N),LtfDG{J*JA,N),ANO, 

4170  6  DLCI.N) ,GT ,OG(JJJ,N))  OU  TO  720 

4180  IF (DG(J«JA,N),tQaDG(JJJ,N),AND,DL(I,N),Lt,DS(J*JA,N)tANDt 

4190  &  DL(I,N),GT.DS(JJJ,N) )  60  TO  720 

4200  IF  (JFJA.tU.H,ANl).vLAST,GTfO,0)  GO  TO  710 

4210  IF  (J*JA.Gt,H)  GO  TO  780 

4220  IF(VA(J«JA,N),GT,VAUtJA«!,N))  GO  TO  780 

4230  710  J As J  A  *  1 

4240  GO  TO  705 

4250 

42oQ  720  lF(JA,tUtl,AND,Jt2,lt,»)  CALL  OTChEn  (I,J,m,F,JA) 

4270 

4280  760  IF (J+JA,GT,M)  GU  TO  790 

4290  IF (DLU,N),LT,OG(J*l,N),ANO,VA(J,N),tO,VU(l,N),AND, 

4300  6VA(J*l,N)vtU,VL(Itl,N))  PRINT  527,  UU ( 1 ,N) ,DL ( I  ,N )  ,0G (J*l , NJ 

4310  IF(J  +  JA,tiJ,H,*Nr),OLU,N),GT,Dtt(J*JA,N))  PRINT  525 

4320  K,DG(JJJ,N),VA(JJJ,N),VA(J*JA,N),DG(J*JA,N) 

4330  IF  (JtjA.LT.M.ANP.DLUfNl.GT.DUlJFJAfNi.AND, 

4340  t  VA(t)FjA,N)lGT,YA(J*jA*l,N))  PRINT  530,  OG  ( J  J  J  ,  N  )  ,  Y  A  ( J  JJ  ,  N)  , 
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4990  4  VAU*JA,N),0G(JvJA,N),VAU*JA*I»N),DGCJ*JA*1,n) 

4340 

4370  IF (DL(I»N),GT tUU(J*JA,N),OR.OL{I,N).LT,OU(Jjj,N) ) 

4340  40L(1,N)»0G(JfJA,N) 

4340 

4400  17  lDLU»N),GT  ,US(J»JA,N>  .OH.OUliM  . L T , US ( JJ J , N  )  ,ANU, 

4410  4  DG(J*JA,N),EQ,OG(JJJ,N))  DL  ( I .  N)aDS  ( JvJ A  ,M 

4420 

4430  790  SVL<I,N)aSVL<l,N)OA*VL(I,N) 

4440  K(I,N>eX(l,N)*JA 

4490  IHAKal 

4440  IF<JvjAtGT,M,ANO,VLAST,GT,0,0,AND,DLLAST,UT,0,Q)  GO  70  400 

4470  1 

4490  J» J ♦ J  A 

4440  RETURN 

4900 

4910  400  PHJNT  810,0LL*5T,DL Cl ,N) 

4920  IHAXal«t 

4930  SVLU7iAX>MaVLAST 

4940  K(IMAX,N)al 

4990  J» J ♦ J  A 

4940  RETURN 

4970  901  FORMAT  (U3,'AT  GtUPHONt  DE PTM  '  , F 4, 1 , *  ,  NEGATIVE  VELOCITY  DiFFEREN 

4940  6CE') 

4990  903  FORMAT  (T13,'AT  GEOPHONt  DEPTH', F6, 1 , NEGATI Vt  TIMt  7  AC  TO* '  ) 

4400  509  FORMAT  <T13,'AT  GEOPHONt  DEPTH '  ,74, 1 ,  NEGATIVE  DEPTH  TACTGR') 

4610  929  FORMAT  (T3» ‘CAUTION  •  AT  GEOPHONt  DEPTH '  ,74, 1 ,* ,  THt',77,0,/, 

4620  COULD  BE  APP  ARENT  •  ,  T 1 3, 'ANO  OR  THE*, 77,0, 

4630  4'ShOULU  BE  APPARENT') 

4640  527  F0rMAT(T3, 'CAUTION  -  THfc  INTEH7  ACE  CALCULATED  TO  BE  AT', 76,1,/'  CO 

4650  fcULD  BE  ANY»MERt  HE TpEE n  '  , 7 6 , 1 , '  AND', 76,1) 

4660  528  FORMAT  IT3, 'CAUTION  -  AT  GEOPHONt  DEPTH', 7 6, ) , ',  If  THt',77,0,'  15 

4670  A  A  CORRECT  VELOCITY  , ' , / , T 1 3 , ' THE N  THE  ',77,0, 'AT  GEOPHONt  UEBTh',, 

4640  AF6.1,'  IS  EITHER  APPARENT  OR  INCORRECT,') 

4690  530  FORMAT  (  2X ,27HC AUT I  On  >  AT  GEOPHONt  DEPTH, F6, 1,  4h  THE, 77,0, 

4700  4  1 0H  COULD  BE  APP ARENT , / ,  12X , 1 OHANO/OR  THE, 77,0,  3H  AT, 76,1, 

4710  A  7M  OR  THE,77,0,/SH  AT,F6.!.1«h  ARt  INCORRtCT) 

4720  410  FORMAT (2X, 'CAUTIOrj  •  THE  EOPTH  TO  THE  "lUH  VELOCITY  LAYtK  bLNEATH 

4730  ATHt  ' ,  /2x , '  DEEPEST  GEOPHONE  HAS  SPECIE IEO  TO  BE  ',7  7,1, 

4740  A*  AND  CALCULATED  TO  BE  ',77,1) 

4750  END 

4760  SUBROUTINE  DTChEK  (1,J,M,N,JA) 

4770 

4740  COP hon/InPuT/05(50,20)»DG(50#20)*SS(50, 20), SG (50,20), 

4790  A  3FGS(50,20),DFGS(50,20)#TR(50,?0),VA(50,20),OP150,20) 

4400  CUPMUN/OUTPUT/VL(20,20),DL(20,20),SVL(20,20),K(20,20),TT(6) 

4410  COPMON/C0NSTA/0ELGS, VF IRS T,VL AST, DLL AST, TITLE 

4811  CH»RACTER*60  TITLE 

4420 

4430C  »**  CHECKS  OUhntm  INTERPRETATION  FOR  PQSSIbLE  AMBIGUITIES  AND 

4440C  ASSUMES  The  SJMPLIE4T  INTERPRETATION  •••*«•«•••***••••»*•• 

449u 

4660  17 (VA(J,N),GT,VAU»2,N),0R,VA(JY1,N),GT,VAIJ*2,N))  RETURN 

4470  17 (OStJFJ ,N),LT,US( J,N) tAND,OG(JF),N),GT,DG(J,N) )  RETURN 

4440 
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La0 

inj.to.n  l«i 

IF  (L,EU,1,AND.VF1HST,GT,0.0)  PRINT  526 , Db ( 1 , N ) 

528  FOR*UTC1X,6«HNOTE— THE  FIRST  LATER  THuE  TtLOCITT  'AS  NOT  SE  I 

XEQlAL  TO  VFIR!>T,/7X,52HCHEC*  SEISMIC  REFRACTION  DATA  FOR  PoSsibLE 
XINtFACE/7X,25h*T  A  SHALLOWER  DEPTH  7hAN,F6,1) 

V2CH«VA(J»i,N) 

V3CH«VA(J>2,N) 

D2HN»TR(Jtl,N) 

ADJS0»V3CM*V3Cm«V2CH*V2CH 
JF (ADJSO,LE,0,0)  00  TO  728 
A0J8SURT (ADJSU) 

60  TO  729 
726  A0j*0,0 

729  CONTINUE 

D2hN»D2HN»3FGSIJ*1 «n)/v3Ch 
D2pN8D2HN*v3CH/A0J 
D2hN»0,5*D2MN«V2CH 
02NN»D2HN«0 ,5*0FG5 ( Jxl ,  N ) 

D2mn»D2mnfOF6S(J*1 ,n)*OS( J*1#N) 

JF(DCCJ*l,N),NE,0G(Jx2,N),ANO,D2HN,bT,OGCJ+I,N).AND, 

6  02HN.LT, 06(J  +  2,NJ  >  PRINT  529,  DG(«I*1,N),VA(J*1«N) 
IF<OG(J*1.n),EU,DG(J+2,N),ANO,D2HN,GT,DS(J*1#N),AND, 

8  02HN,LT,DSIJ*2,N))  PRINT  529,  DS ( J»1 , NJ , VA ( J*1 ,N ) 

730  1F(J*1.EO,0,OR,I»1,EU,0)  CO  70  770 
IF(VA(J-l,N),bT.VA(J,N))  GO  TO  770 

IF(VL(I-l#N),NE,VACJ»J,N),OR,VL(l,NJ,NE,VA(J,N))  GO  TO  770 

J«J-1 

I»X-I 


770  VlCH«VA(J,N) 

V2CH»VA(J+2,N) 

DPEX"TH(J*1,N) 
AUjS0«V2Ch*V?Ch»V1Ch«V1CH 
A0J8S0RT (ADJSU} 

DPF  X«DPEX-5FGSU«1  »N)/V2Ch 
DPE  X8DPEX0V2LH/ADJ 
OPEX«0,5*DPtX«VlCH 
DPfc  X»DPtX-0,5»DEGS( JM ,N) 

DPE  X«0PEX*DFGS(J*1,N)*081J*1*N) 


IF(DG(J*l,N),Nt,Db(J*2«N) , AND ,DPEX ,GT ,DG(J»1,'.  ),AND, 
X  DPEX,LT,0G(J*2.N})  GO  TO  790 
IF(UG(jTl,N),EU,Db(JF2»N),AND,DPEXtbT,DS(j4l,N),ANU, 

i*  nuL  o  i  t  nc  /  t  3  xi  i  i  r  n  •  9 o  a 


X  0PtX,LT.0SU«2,N))  GO  TO  790 
RETURN 


790  VLtI*N)»VA(J,N) 

VL(l*l»N)»VA(J*2,M 

DL(I»N)«0PEX 

JA.2 
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5«40  529  FORMAT  (Ti, 'CAUTION  •  AT  GEOPmONE  OtP Tn» , F o, i , '  ,  Tnt',F7,0,'  COULD 

5450  4  Hf  A  T HUt  VELOCITY,') 

5440  Ht TURN 

5470  ENp 

54*0  SUpKOUTINE  0PH1M  ( I ,  J  ,  *  ,  S  ,  I  P  AX  ,  SNDF  ,  SSNO  ,  CF  AC  ,  K  T  VPt  J 

5490 

5500  COmmON/1 NPUT/OS (50 ,20 ) ,PG (50 ,20 ) #SS(50»20), SC (50*20), 

5510  4  SFGS(50»20),DFUS(50,20)*TR(50,20)*VA(50»20)»DP150»20) 

5520  COmMON/OUTPUT / VL (20,20 >,DL <20,20 ),SVL (20,20 ),K (20, 20 >,TT (4)  ' 

5550  *, VC (20,20) 

5540  COMMON  /COnSTa/  PtLGS,VFIRST,VLAST,DLL*ST, TITLE 

5541  CHAHACTEHaoo  TITLE 
5550 

5540C  OUTPUT  PRINTOUT  •»•••«•••*»»•«•*»«••»*•*•****»•**•»•»*•*•******»»» 

5570 

55*0  PRINT  114,  TITLE 

5590  114  FQrmaT(///,T2,*CH0SSH0LE  INTERPRETATION  »',A40> 

5400 

5410  PRJNT  *05 

5420  *05  FORMAT!///, T4,'«lNTERFACt  DEPTH* ', /T2 , 'GEO', T A, 'SHOT ', T14 ,'» HUE ', T27 , 

5450  S'C<jMPUTtD  THAVEL  TIMES,  SECONDS '» T47,  'APPARENT », 

5440  4/Tj, 'OEPTH  OEPTk  VELOC I T V » , T47 , 'APPARtNT » , 

5450  NT24, 'DIRECT ' , T52. 'DO»N' , T*0, 'DO«N ', T46 , 'DO«N' , T54, »UP', 

5440  4T44, 'COMPUTED*, T72,*HEASURED',/T52,»1L A VER',T40,»2LAVtN», 

5470  4T48, *3L AVER ' , T54, ' 1LATER ',///) 

54*0  IF (KTYPttE0,1.0RtKTYPt,£0,2)  CALL  THUAV1  ( IMAX ,CF AC ,N ) 

5490 

5700 

5710  1*1 

5720  00  *90  J*1,H 

5750  814  IP(0L(1,N),GT.0(.(J,N))  r.0  TO  850 

5740  1P(1,EU,1MAX)  GO  TO  850 

5750  *20  F0RMAT(T5,'«',To.F4.1,T12,»>') 

57»G  PRINT  820,  OL(l.N) 

5770 

57*0  IF  (Ivl.EG.IHAX)  TO  8*4 

5790  IF (DG(J,N),GE,DL(I*1 , n  ) )  PRINT  *22,  VL(l*l,N) 

5*00  *21  IF(DG(J,NJ  ,LT,CL(I*1,NJ)  GO  TO  824 

5810**22  FORMAT (14X,F7,0) 

5*20  1*1*1 

5450  GO  TO  81* 

5*44**24  1*1*1 

5*50 

58*0  *50  CALL  THT1m2(i,j,h,n,Imax,nl,TT1,TT2,TT5,TT4) 

5870  TT2U*999, 

5860  IF(VL(I,N),GT,VL<1-1,N))  GO  TO  827 

5890  TT2ll«SFGS(J,N)/VL(l-l,N) 

590  0  A0jS0aVLUM*N)*vL(I-l,N)»VL(I,*J*VLU»N) 

5910  VV.SURT(APJSG) 

5920  TT*U*TT2U*(0FGS( J , N ) *2 , 0* <0G ( J ,n)«DL ( I -1 ,NJ ) )*VV/(VL(l-l ,N)*VL (1,N 

5950  *}) 

5940 

5950  *27  Tmin«APIM(TT1,TT2,TT5,TT4,TT2U) 

59*0  VLa*DP(J,n)/Tmi,. 

5*70  VC(J,N)*VLA 
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59eo 

5990  CA^L  EOHOOT  U,J»W,N#I***«NL» TTl, TT2, 1 T4, TT4,SM>E .SSNU, VUA, I T2U 

6000  6  TkJNJ 

6010 

6020  890  CONTINUE 

6040 

6040  IF(I,Gt,I*AX)  BUT  0900 

6050  PRJNT  820 ,  DL ( I  *  N  ) 

6060  PRjNT  B40,VL(I*1'N) 

6070  840  FORRAT(T17,E 7,0) 

6080 

6090  900  RETURN 

6100  EN0 

6110  SUBROUTINE  TRUAVI  (IRAX,CFAC,NJ 

6120 

61  JO  COpMON/UUTPUT/VL(20,20),OL(20,20),SVI(20,20),K(20,20) 

6140  COpHON  /CONSTA/  DELGS,VFXRST,VLAST , DEL  AST ,  TITLE 

6141  CHARAf TtR*60  TITLE 
6180 

6160C  ***  CONVERTS  DETAILED  LAYERING  INTO  REPRESENTATIVE  LAYERING  ••****• 
6170 

6180  809  ICbO 

6190  DO  806  1b1,IMAX 

6200  806  VL(X,N)6SVL(I,N)/K(I,N) 

6210 

6220  DO  808  l«l,IMAX-l 

6230  IE (I,GE,1hax«1C«1)  GO  TO  80S 

6240  HlR4VL(l,N)/VL(I*l,N) 

6250  1P(K(I,N),GT,1, OR, K(I«1,N),6T,1)  BEAC>0,05 

6260  XF(K(I,N).£U,l,AND,K(l«l,N),tU,l)  BEAC»0,10 

6270  IE (RIH.LT,l,0-HEAC,OR,RIR,GT,l,0+8EAtJ  GO  TO  808 

6280  SVL tI,N)«SVL(I,N)ASVL(lAl,N) 

6290  K(l,N)aK(l,N)«K(l*l ,n) 

6400  VL(I,N)bSVL(I#N)/n(I#N) 

6410  IE  (1AI,E«,IHAX)  (.0  TO  808 

6420  UL ( 1 , N ) *DL ( 1 + 1 , n) 

6330 

6340  DO  807  II*m,l8AX-lC>! 

6350  SVtUl»N)*SVLUIVl,N) 

6460  K(Il,N)4H(llAX#N) 

6370  VL(X1,N)«VL(1XA1,N) 

6480  IE(II,Eu,I8AX>IC-1}  GO  TO  20 1 

6390  DL(XI,N)*UL(IIA1,M 

6400  807  CONTINUE 

6410  ICsICM 

6420  808  CONTINUE 

6440 

6440  !Naxsirax»ic 

6450  IE (IC.Gt.l)  GO  TO  809 

6460 

6470  IF(VL*ST,EU,O,0)  RETURN 

6480  IF{VLAST,GT,0,0,ANO.VLUNAX,N).EK,VLAST>  RETURN 

6490  1F{0 LEAST, EG, 0,0)  RETURN 

6500  0L(1RAX,N)4DLLAST 

6510  JHAXalRAX+l 
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6320 

6530 

OSLO 

6330 

8360 

6370 

6380 

6390 

6600 

6610 

6620C 

6630 

66*0 

6630 

6660 

6670 

6680 

6690 

6700 

6710 

6720 

6730 

67*0 

6730 

6760 

6770 

6700 

6790 

6000 

6610 

6020 

6630 

60*0 

6030 

6060 

6070 

6000 

6090 

6900 

6910 

6920 

6930 

69*0 

6930 

6960 

6970 

6980 

6990 

7000 

7010 

7020 

7030 

70*0 

70S0 

7060 


VL(lRAX,N)aVL*ST 

RETURN 

END 

SUhKOUT JNt  TRTIH2(1,J,R,N,IRAX,nl*TT1,TT2»TT3»TT4) 

COrRON/INPUT/DS (SO ,20) ,06(50 ,20 ) ,SS (30,20 ) ,S6 (SO ,20 ) « 

*  SF6S(SO,20),OFGS(50,20),TH(50,20)«VA(SO«20),DP150,20) 

COrHON/OUTPUT/VL (20,20),DL(20,20) ,$VL(20,20),K(20,20),TT(6) * 


•••  CORPUTES  TRAVbL  TIMES  F ROR  A  TRUt  VELOCITY  PROFILE 

TT(t)«999, 

T T  (2)6999 , 

TT  (3)6999, 

TT (9)6999, 

NL*1 

TT(NL)60P(J,N)/VL(1,N) 

IF(1,E0,IRAX)  GO  TO  8«0 
IP(VL(I,N),6T.VL(1»1,N))  TT (2)6777, 

LFrO 

LCaO 

833  lCbLC+1 
NLaLC  ♦  1 

|F{TT(2),E0.777,AN0,NL.E0,2)  60  TO  833 
TT (NL)68FGS(J,N)/vl(!aLC,N) 

A0jS8»VLa»LC,N)*vL(lRLC,N)-VL(l#N)«VL(I,N) 

AOjSU*AUS (AUJSu) 

AOJ6SORT (ADJSU) 

TT(NL)6TT(RL)A(0FCS(J,N)A2,0»(0L(I^)»0G(J,R)))»ADJ/(VL(I*LL,R)* 

«.VL(I#N)) 

IF (I*1»£G,IMAX)  T T ( 3)6999, 

IF (Itl.tU.IRAX)  GO  to  840 

IKVL(I  +  l,R).6T,VL(It2,N))  TT( 3)6777, 

IF(T1 (3),fcQ. 777, AMJ.NL, EO, 3)  GO  TO  035 
JKLC.EQ.l)  CO  TO  033 

837  X0JS0*VL(I*LC,N)*VL(I*LC,N)»VL(I4LC»LF"1,N)«VL(I *LC»LF »1  ,N) 
A0JS66A8S(A0J9U) 

A0J6S0RT (ADJSU) 

TT(NL)«TT(NL)*210*(OL(l*LC*LF»i,N)*DL(lALC*LF-2,N))«AOJ/(VLUALL,N 

A)«vLU*LC-LF*l,N)> 

IF (lA2.tC.lRAX)  T  T (4)6999, 

IF(1»2,EU,IRAX)  GO  TO  840 
IF (VL(1a2,N),GT,VL(Ia3,N))  TT (4)6999, 

IF (LC.EG.2)  GO  TO  835 
LFbLFM 

IF (LC,EG,3,AND,LF,EU,1)  60  TO  037 

040  TTl*TT(l) 

TTJ6TT (2) 

TT3«TT(3) 

TT4*TT(0) 

RETURN 
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1 

! 


r 


7070 

7O0G 

7090 

7100C 

7110 

7120 

7 1  SO 

7190 

7150 

71*0 

7170 

7100 

7190 

7200 

7210 

7220 

7230 

7290 

7250 

7290 

7270 

7200 

7290 

7300 

7310 

7320 

7330 

7390 

7350 

7351 
73ao 
7370 
7390 
7390 
7900 
7910 
7920 
7930 
7090 
7950 
79*0 
7970 
7990 
799J 
7500 
7510 
7520 
7530 
7590 
7550 
75*0 
7570 
7590 
7590 
7*00 


E*C 

SUBROUTINE  ST ATS(R,SNDF  ,SSNO) 

•  ••  COMPUTES  Thb  REAn  and  STANDARD  DEVIATION 

XRmFLOAH*) 

ANoF«SNOF/XR 

S8ND*SSNO/(xh-I,0) 

StQSSURT (SSND) 

PRINT  099,  ANDF  ,STD 

099  FORMAT  (///,T50,  'M£AN  DIFFERENCE  «»,►*, 2, •  *',/* 

*T33, 'STANDARD  DEVIATION  CF  DIFFERENCE  *',Fb,2,*  *',//, 

ET30,»*  PERCENT  OF  MEASURED  VELOCITY') 

SNQFaO, 0 
S8n0*0,O 

RETURN 

END 

SUBROUTINE  FOROUT  (I, J,R,N,IMAX,Nc,TTI,TT2,TTJ,TT9,SNDF  ,SSNU,VCA, 

*  T  T2U , TM IN ) 

CURHON/ 1 NPUT/DS (50, 20 ) ,06(50,20 ),S5 (50,20 ), SC (50,20), 

*  SFcS(50,20),DFG8(50,20),TN(50f20),VA'50»20),DPl50,20) 

9  ,SX(50),SV(50)iS2(50),GX(50),CV(50),bZ(50) 

CURNON/UU1PUT/VL(20,20),OL(20,20),SVU20,20),K(20,20),TT(*) 

E ,  VC (20 , 20 ) 

CO»'*'UN  /CUNSTA/  DtLGS,VF  JRST  ,VCAST,OLLAST  ,  TJTCE 
CHARACTER  *90  TITLE 

IF (VA(J,N))  500,500,900 

900  DIF  N« VL*»VA ( J, N) 

0IFN«01FN*100,0/VA( J,N) 

0NCf ■SNCFfDJFN 
$8nD«SSND*DIFn*0IFN 

500  IF (VA(J,N),tU,0,0)  OIFNBO.O 
IF (TT2U.NE.999)  GO  TU  200 

IF  (TT2,E0,77T.AN0,TT3tEC,T77tAN0,TT9,tiJ,999) 

9PRJNT  005,  DC(J,n),DS(J,n),VL(I,N),TT1, 

E/LA,vA(J,n) 

IF (TT2.NE. 777, AnC,TT3,EQ, 777, AnO.TTr, 10,999) 

APR I  NT  075,  CG(J,N),DS(J,n),VL(1,n),TT1,TT2, 

NVLA,VA(J,n) 

IF (TT2,10,777,0R,TT3,EC,777)  GU  TO  ICO 
IF (TT2,t 0,999, AM,, TT 3 , EU, 99V , AND, T T 9, t U, 99V ) 

•PRINT  005,  DC(J,n),DS(J,n),vL(1,N),TT1, 

*VLA,VA(J,N) 

IF (TT2,NE,999,AND,TT3,tU,999,AND,TT9,ty,V99) 

9PR I  NT  075,  DMJ,N),D0(J,N),VL(l,N),TTt,TT2, 

*VkA,VA(J,N) 

IF (TT2.NE ,999, ANU , TT3, Nt ,999 , AND , T T9 , E8 ,999) 

4PRINT  0*5,  D6(J,N),0S(J,N),VL(I,N),TTl,TT2,TT3, 


•  ••••• 
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•  • 


4 


CROSS  COkT  101281  «  05/26/82  F ILE  PAGt  NO,  lb 


( 


P 


!4 


» 


4 


7*10  AVU,VA( J,N) 

7*20  IF ( TT2,NL ,999 , Anu , 1 T  3, Nt ,999 , AND , T  T* , N£ ,99V  ) 

7* JO  APRINT  855,  DG<J,NJ,0S<J,N),VL<I.N),TTl,TT2,TT3,TT*, 

7**0  *VLa,VA(J,K) 

7*50 

7**0  100  CONTlNUt 

7*70  17 <TT2,EQ,777,*NO,TT3,EU,999,AN0,TT*,tQ,999) 

7*60  APRINT  665,  DG(J,N),D6(J,N),VU(I,N),TT1, 

7*90  AVU,VA(J,N) 

7700  IF tTT2,£Q,777,AN0,TT3,EQ,999, AND, TT* ,tQ ,999)  CO  TO  666 

7710  JF (TT2,EQ,777,AN0,TT3,N£,7T7,AN0,TT*,EQ,999) 

7720  6P8JNT  711,  0G{J,N),DS(J,N),VU(I,N)*TT1,TT3, 

7730  AVLa,VA(J,N) 

77*0  17 (TT2,EQ,77T,AND,TT3,NE,T77,AND,TT«,Nfc,999) 

7750  APRINT  712,  OG(J,N),DS(j,N),VL(i,N),TTl,TTi,TT*, 

77*0  AVLA , VA ( J , N ) 

7770  If (TT2,£G,777,AN0,TT3,£e,777,AN0,TT«,NE,999) 

7760  APR J  NT  713,  00 ( J , n) ,OS ( J , N ) , VL 1 1 *N) , T T 1 , T T9, 

7790  AVLA»VA(J,N) 

7600  X7{TT2,NE,777,*ND,TT3,eo,777,ANO,TT«,NE,9991 

7610  APRJNT  71*,  OG(J,N),OS{J,N),VL(J.N), TTI,TT2,TT«, 

7620  *VLA,VA(J,N) 

7630  CO  TO  666 

76*0 

7650  200  CONTINUE 

76*0  IF(TT2,tQ,777.0R,TT3,tU,777)  GO  TO  300 

7670  IF(TT2,EQ,999,AN0,TTJ,£Q,999,AN0,TT«,£u,999) 

7660  APRINT  689,  DG ( J , N J , OS < J , N ) , VL (I ,N 1 , T T 1 , T T2U , 

7690  AVlA.VAU.N) 

7900  IF ( TT2,NE ,999, Anu, TT3,EG ,999, AND, TT  * ,£Q,999  ) 

7910  APRJ NT  676,OG(J,N),0S(J,M , Vt { 1 , N ) , T T I , T 72, T T2U , VL A , V A ( J , M 
7920  lP(TT2,Nt.999tANO,TT3,Nt,999,ANO,TT*,EO,999) 

7930  fcPHINT  6*6,  0GU,N),0S(J,N),VL(i»N),TTl,TT2,TTJ,TT2u, 

79110  AVlA,VA(J,N) 

7950  IF (TTZ,NE,999,AN0.TT3,Nt,*99,AND,TT«,NE,999) 

79*0  *PRJNT  656,  DG(J,n},DS(J,N),VL(1iN),TTI,TT2,TT3,TTU,TT2U, 

7970  AVLA , VA ( J ,N ) 

7980 

7990  300  CONTINUE 

8000  IF (TT2.E0, 777, AND, TT3.EG, 999, AND,TT*,fc 0,999) 

8010  APR  I  NT  669,  OG ( J, N ) ,08 ( J, N ) , VL ( I , N ) , TT 1 , TT2U, 

6020  AVLA,VA(J,N) 

8030  IF (TT2,t0.777,AND,TT J,EQ,999,AND,TT«,EG,999)  GO  TO  888 

60*0  IF (TT2.NE. 777, AND, TTJ, 10,777, AND tTT*,EU,999) 

6050  APRINT  678,  OG (J , N ) , OS < J , N ) , VL ( l , N ) , TT 1 , T TZ, TT2U , VL A , V A ( J , N ) 
60*0  IF(TT2,tQ,777,AN0.TT3,NE,777,AN0,TTu,tU,999) 

8070  APRINT  721,  0G{J,N),08(J,N),VUI,N),TTt,TT3,TT2U, 

6080  AVLA ,VA(J,N) 

8090  IF (TT2,fcG,777,ANU,TTJtNt,777,AN0,TT«,NE,999) 

8100  APRINT  722,  0GtJ,N),0S(J,N),VL(I,N),TTl,TT3,TT*,TT2U, 

8110  AVLA.VA(J,N) 

8120  IF (TT2,tQ,777.AN0,TT 3 ,E U ,777 , ANO, TT* , NE ,999 ) 

8130  APRJNT  723,  DG ( J,N ) , OS l J,N ) , VL C I ,N) , TT 1 , TT* , TT2U, 

81*0  AVLA , VA ( J , n ) 

8150  IF (TT2,NE,777,AN0,TT3,EU,777,AN0,TT#,NE,999) 
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8140  6PRJNT  724,  UG{J,N),DS(J,N),VL(l,N)»TTl,TT2*TT4*TT2U» 

8170  tVLA  ,  V  A  ( J ,  n  ) 

6180 

8190  446  CONTINUE 

6200 

8210  711  FORNAT(T2,F6,l,T9,F6,l,Tl6,F7.0,T24,F7,4,T40,F7,4,T64,2F6,0i 

8220  712  FORMAT(T2,F6,l,T9,F6,t,Tl6,F7.0,T24,F7,4,T40,F7.4,T48,F7,4, 

62S0  AT64 ,2F8 , 0 ) 

8240  713  FORHAT(T2,F6,l.T9,F6,l,Tl6,F7,0,T24,F7,»,T4B,F7,4,T64,2F7t4l 

8250  714  FORMAT{T2,F6,l,T9,F6,l,Tl6,E7,0,T24,E7,4,T32,F7,4,T48,F7,4,l64,2F8,0) 

8240  721  FORH*T(T2,F6,l,T9,F6,l,Tl6|F7lO,T24,F7,4,T«0,F714,Tb4,F7,«, l 64, 2F 8,0) 

8270  722  F0RM*T(T2,F6,1,T9,F4,1,T16,F7,0,T24,F7,4,T40,F7.4,T46, 

6280  8F7.4,T54,F7,4,T44,2F6,0) 

6290  723  FORMAT(T2,F6.1,T9,P6,l,Tl6,F7,0,T24,F7,4,T48,F7.4,Tb6,E7,4,]64,2F8,0) 

6300  724  F0RM4T(T2,F4,1,T9,F4,1,T14,F7,0,T24,F7,4,T32,F7,4, 

8310  »T48,F7,4,T56,F7,4,T44,2F8,0) 

6320  655  F0R«4T{T2,F6,t,T9,F4,l,TU,F7,0,T24,F7,4,T32,F7,4,T40,F7,4, 

6330  tT46,F7,4,T64,2FS,U) 

8340  858  FORMAT{T2,F6,1,T9,F6,1,T16,F7,0,724,F7,4,T32,F7,4,T40,F7,4, 

6350  6T48«F7,4,T54,F7.4,T64,2F8,0) 

8360  865  F0RHAT(T2,F6,1,T9,F4,1 ,  T 16 ,F7 , 0 , T24 ,F 7 , 4 , T32,F7 ,4 , T4Q,F7,4 , I64,2F8,0) 

8370  868  FORMAT (T2,F6,l,T9,F6,l,Tl6|E 7, 0,T24,F 7,4, T32,F7,4,T40,F7.4, 

8360  IT56»F7*4,T64,2F8,0) 

8390  875  FORMAT{T2,F6,1,79,F6,1,T16,F7,0,T26,F7,4,T32,F7,4,T64,2F8,01 

6400  876  FOfiPAT(T2,F6tl,T9,F6,l,Tl6*F7,0,T24,F7,4,T32,F7,4,T56,F7,4l,f6«,2F8,0) 

6410  885  FORHAT(T2,F6ll,T9,F6,l,TU#F7t0,T24,F7,4,T6«,2F8,01 

6420  889  FORMAT(T2,F6fl,T9,F6,l,Tl6»F7,0,T24,F7,4,Tb6,F7,4,T64,2F8,07 

6430 

6440  RETURN 

8450  END 

6460  SUBROUTINE  SUMARY  (JMAX,ISUM) 

8470  COkMON/INPUT/DS(50,20),DG(SO,20),SS{50,20),SG(50,20), 

8480  6  SFGS(50,20),DFGS150,20),TR150,20),VA(50,2U),DP150,20) 

6490  6  ,SX(5U),SYC5Q),S2150),GX(50),GY(50),GZ(50) 

6500  CO«MON/OUTPUT/VL(20,20),DL(20,20),SvL(20,20),K(20,2Q),TT(b) 

8510  6, VC (20 ,20 ) 

6520  Common  /CONSTA/  DELGS , VFl RST , VLAST ,0LLA5T  ,  TI TlE 

6521  CHARACTER  *60  TITLE 
8530 

6540C  <*«•  SETS  UP  TAbLE  FOR  THREE  HOLE  SET  P  AND  S  RAVE  DATA  •*«***«•*•»•••• 
6550 

8560  CALL  ARRANG  (JHAX) 

8570 

8580 

8590  PRINT  100,  TITLE 

8600  100  FORMAT  ('l',T2, ‘CROSS  MOLE  SUMMARY  »',A60,///) 

8610 

8620  GO  TO  (500,600,700),  ISO" 

8630 

6640  500  PRINT  200 

8650  200  FORMAT  (T3,'SMUT  GEO  6  GEC  C',  3X, 'DIRECT  PATH', 

6660  6  2x , 'MEASURED  ARRIVAL  TIMES,  SEC  *,  6X,'TRUE', 

8670  6T93  , 'APPARENT  VELOCITY  SUMMARY', 

8660  t/,T3, 'OEPTm  DEPTH  DEPTH',  4X , '01  ST ANCE ' , T6B, » VELOCI T V ' , 

8690  6T90  ,'P-MAVE',  20X, 'S-nAVE', 


rm 
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CROSS 


0700 

0710 

0720 

0730 

0700 

0750 

0700 

0770 

0700 

0790 

0000 

0010 

0020 

0030 

0000 

6050 

0060 

6070 

6000 

6090 

6900 

6910 

6920 

6930 

6900 

0950 

0960 

0970 

6960 

0990 

9000 

9010 

9020 

9010 

9090 

9050 

9060 

9070 

9000 

9090 

9100 

9110 

9120 

9110 

9190 

9150 

9160 

9170 

9160 

9190 

9200 

9210 

9220 

9230 

9290 
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A/aJOX^P-nAVE',  9X,'S-nAVE'» 

4T06,'A0*,1OX,*AC',11X,'A0',1QX,  'AC*, 

»/,T24,'A0  AC',TJ0,'AB',5X,'AC*,  0X,'AB',5X,'AC', 

4  Ox, 'PaMAVE ', l X, 'S-HAvE', 

6782,  *M£AS  COMP  m£*s  CO*»P  * ,  IX ,  *M£  AS  COMP  MtAS  COMP*, 

4//) 

DO  900  Jsl,JMv»x 

900  PRINT  910,  0S(J,12),0C(J,l2}i0tf<J,lJ),DP(J»12),DP(J,lJ), 

0  TRU,12),TH(J,li),TR(J,14),TH(J,t5), 

4  VL(Jil2),VL(J,14), 

4  VaCJ,12),VCCJ,12),^A(J,13),VC<J#11)*9A(J,14),VC(J,14),VACJ#15), 
4  VCCJ.15) 

410  FORMAT  (T2,F6,1,  F 0 , 1 ,  Fb.l,lX,F0,l,tX,F0,l,T35,2F7,4, 

4t5o«2F7.4,  IX, 2F 7,0,  2X ,«F0,O , 1 X , 4F0 , 0 ) 

00  TO  900 


000  continue 

PRINT  010 
010  FORMAT  ( 

4  24X , 1 OHMOLE  DEPTH,  4X, 1 1H01&ECT  PATH,  6X , 1 6MARRIVAL  TIMES,  SEC,/, 
4  40 X ,  8M0ISTANCE,  6X,0MP-*AVE,  5X,  0HS»*AvE,/, 

424X , 'A  0  C»,  5X , *AS  AC',  0X,*AB  AC  AB  AC', 

4//) 

DO  420  Jal.JMAX 

420  PRINT  430,  DS(J,12),DG<J,l2),DU(J,i3),DH(J,12),DP[J,li), 

4  TRU,12),TK(J,13),TN(J,]4),TR(J,1S) 

430  FORMAT  (20X,3Fb,l ,2F7,0,  1X,2F7.4,  1X,2F7,4) 

print  435 

435  FORMAT (//,23X,  5MDEPTM,  14*» 

420MAPPARtNT  VtLOCITY  PROFILES,//, 

4  ilX.'COMP  MtAS*#  IX.’COMP  MtAS',  3X , 'COMP  ME AS ' ,  3X,'CQMP  MEA 
AS',//) 

00  440  J«1 , JMAX 

440  PRINT  450,  PS(..,12),  VC(J»12), 

*VA(J,!2),VC(J,l3),VAtJ,13),VClJ,14),VA(J,14),vt(J,15>).VA(J,}5) 

450  Format  (22X,F6,1,  4(1X,2F0,O)) 

PRINT  475 

475  FORMAT  ( / /  ,  3 1  X  ,  5H0EPTH,  0X,22MTkOE  VtLOCITr  PROFILtS,/, 

4  4 J X ,  6HP»»AVE,  EX,  buSaMA VE , / 

4  4 1 X ,  2MAb,  0X,  2*AC,  0X,  2MAB ,  0X,  2MAL  //) 

DO  460  J»1,JMAX 

uBO  PRINT  490,  D8(J,12),VLU,l2)#VL(J»13)*VL(J»14),9Lta#lS) 

490  FORMAT  (30X  >F  6 , 1 »  UF  0, 0  ) 

700  CONTlNOt 

900  RETURN 
ENC 

SUBROUTINE  AMRAM.  (JMAX) 
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MU  PACE  MO,  14 


9*  SO 
9*60 
9270 
9280 
9290 
9500 

9510 

9511 
9520 
9330 
9340 
9350 
9360 
9570 
9380 
9390 
9400 
9410 
9420 
9430 
9440 
9450 
9460 
9470 
9480 
9490 
9500 
9510 
9520 
9530 
9540 
9550 
9560 
9570 
9580 
9590 
9600 
9610 
9620 
9030 
9640 
9650 
9660 
9670 
9680 
9690 
9700 
9710 
9720 
9730 
9740 
9750 
9760 
9770 
9780 


COpHON/INPUT/DS(50,20),DG(SO,20),SS(Sb,*0),SG(50,*U}, 

8  SFCS (50 ,20 ) ,0FG6 (50,20 ),TN  150 ,20)  ,VA (50,20), DP  150 ,20) 

6  ,SX(50), 87(50), SZ(50),GX{50),GV(50>,GZ(50) 

COnMON/UUTPUT/VL (20,20 ) ,OL (20 . 20 ) , SVL (20,20 ),K (20,20), TT (6) 

6#  VC (20  #20 ) 

COkMUN  /CUNSTA/  OtlC8,VFIRSTlVl.AS7,OLLAST,TlTLt 
CHARACTER  *60  TITUE 

J2aO 
J5s0 
J4*0 
J5a0 
I2«l 
IU 1 

I4«l 

15*1 

DO  450  J* 1 < JHAX 
N*2 

J2*J2*l 

J3»J3*1 

J4*J4«1 

J5*J5tt 

IF (DS ( J , 2 ) )  250,350,250 
250  CONTINUE 

IF(DS(J,2).LT.DSU3,3))  J3«J3-1 
IKDS(J,2),LT,0SCJ4,4J)  J4«J4-l 
IF(DS(J,2),LT.DS(J5.5))  J5*J5«1 

350  CONTINUE 

contimue 

IF(DG(J3,3).LT.DG(J5,5))  0G(J3,S)*DG  l  J5,5) 

1P(0UI2,2),IT,DG(J*,2))  I2*12tl 
IF(DL(I3,3).LT.DG(J2,2))  I3*I5Al 
XP(0L(I4,4),lT,DG(J5,3)>  14* 1 4 ♦ 1 
IP(Dt(I5,51,lT,DGU3,35)  I5*l5*i 
IP ( DS ( J , 2 )  )  390,360,390 

360  CONTINUE 

JF(DKI4,4),LT,DG(J,4))  I4*14fl 
DP(J,2)*DP(J,4) 

DS ( J , 2 )*DS ( J ,4 ) 

OG ( J ,2 )*DG ( J ,4 ) 

590  CONTINUE 

D5(J* 12)*DS(J2,2) 

DG(J,12)*DG(J2,2) 


•  ••••••• 
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9790 

06(0, 1 3)*0G{ J3>  3 > 

9000 

09(2(12)009(02,2) 

c 

9010 

09 (J, 13)009(03,3) 

• 

9020 

TR(J,12)«TR(J2,2) 

- 

9010 

TR(J,l3)0TR(J3,i) 

► 

9090 

TR(J(19)0TR(J9,9) 

9010 

TR(J#15)»TR(J5,5> 

■ 

90feO 

Vt(O,12)0VL(12,2) 

9070 

VL(O,13)0VL(I3,3) 

9000 

VL  (0 , 15) 0VL (I5#5) 

{” I m 

9090 

Vl(J,l*>»VL(19,9) 

• 

mm HI 

9900 

V*(J,12)»V*(J2,2) 

9910 

VC(J,12)»VC(J2,2) 

9920 

V*(J,13)0VA(J3, J) 

9930 

VC(J,13)0VC(J3(3) 

9990 

V*(J,19)0V*(J9,9) 

jB$$# 

9950 

VC(J(19)0VC(J9(9) 

9900 

V»(O,15)0V*(O5,5) 

« 

9970 

VC (0(15)0 VC ( J5(5) 

'  •  ! 

9900 

TH (02,2)00, 0 

9990 

TR(03, 3)00.0 

10000 

T0(O9,9)0O,O 

10010 

70(05,5)00,0 

10020 

VA  (02,2 )0O ,0 

10030 

VA  (03,3)00.0 

10090 

VA(O9#9)0O,O 

• 

10050 

VA (05,5)00,0 

10000 

10070 

950  CONTINUE 

10000 

10090 

DO  000  N«2,5 

- 

10100 

00  000  0»1 ,25 

. 

► 

10110 

T0(O,N)0O,O 

10120 

V a(0,N)«0,0 

g  «-*» 

10130 

VC(O(0)BO,O 

a 

*H® 

10190 

06(0,0)00,0 

V 

B&te 

10150 

OS (0  ,N)«0 , 0 

BE» 

10100 

3C(O,N)0O,O 

BfeU 

10170 

08(J,N)0O,O 

B&JI 

10100 

DF(O,N)0O.O 

BSm* 

10190 

000  CONTINUE 

BBsi 

10200 

i  91 

10210 

RE7URN 

10220 

Eno 

• 

B&gf 

10230 

subroutine  carrvu  («,n,lmr**) 

10290 

CC^ON/ INPUT /OS  (50, 20),  DO  (50, 20),  55  <50, 21),  sc.  (50, 20), 

10250 

A  S9CS(50,20),OF6S(50,20),TH(50,20),VA(50,20),DP(50,2o) 

M®m 

10200 

a  ,SX(50),SY(50), 02(50), 6A(50),6V(50),CZ(50) 

Bsvfe 

10270 

CCmmON/OUT9UT/VL(2O,2O),DL(2O,2O),SVL(2O,2O),N(2O,2O),TT(0) 

B'^yr# 

10200 

9,VC  (20,20 ) 

10290 

00**00  /CONST*/  DtU6S,VfJRiT,VL*8T,DLU*ST,TlTLt 

10291 

CHARACTER  *00  TITLE 

• 

10300 

10310 

N00N«1 

10320 

NC*N*t 

• 

• 

• 
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nut  p*ut  no,  20 


( 


10330  DC  100  1*1 , UNIMAX 

10340  Du ( 1 « N } *0U ( I , NO ) 

10330  100  VU(1«N)*VU(1»N0) 

103*0  J*0 

10370  JN* 1 

10300  JC*1 

10390  200  J» J*1 

10400  lF(DS{JN,N),EU,0tO,AND,DS{JO,NU),EU,0,0)  GO  TO  *00 

10410  1F(D8(JN,N)»DS(J0»N0))  300,400,300 

10420 

10430  300  08<J#NP)*0S(JN,N) 

10440  OG(J#NP)*DG(JN,N) 

10430  JN*JN*1 

10460  GO  TO  200 

10470 

10480  400  DS(J,NP)*DS(JN,N) 

10490  Qg(J»NP)*DS(JN,N) 

10300  J0*J0*1 

10310  JN*JN«1 

10320  Go  TO  200 

10330 

10540  500  08(J,NP)*0S(J0,N0) 

10350  DC(J,NP)*OG(JU,NO) 

105*0 

10570  J0«J06l 

10580  GO  TO  200 

10590 

10600  *00  MbJU 

10610  DO  700  JJ«1,M 

10620  700  DS(JJ,N)*D8(JJ,NP} 

10*30  hetunn 

10640  LkD 

10650  SUBROUTINE  SUNTnO  (M,N) 

10*60 

10*70  COMMDN/INPuT/DS(3o,20)fDU(50,20),S5(30,20),SG(50,20), 

10*80  *  SPGS(50,20),DFGS(3C,2O),TN(5O,20),VA(50,20),Dp(50,20) 

10690  6  ,8X(50),SY(50), 82(50), GX(50),GY(50),GZ(50> 

10700  C0MMON/0UTPUT/vU(20,20),DU(«!0,20),SVU(20,20),M2o,20),n  (b> 

10710  6, VC (20 ,20 ) 

10720  COMMON  /CONST A/  OtUGS . VP IRST , VI  AST , DUUAST , TI TUt 

10721  CHARACTER  **0  T ITUE 
10730 

10740  PRINT  40 

10750  PRINT  100 

107*0  100  FORMAT  ( /  ,  30  X  ,  7MTABU1  3,/// 

10770  *  JSX,  *N  *Nt AU  * ,  3X, 17MAPPAHENT  VtUGCITY,  2 X , 1 2M 'SUPPUStllU t ' , / 

10780  41SX,  5HDEPTH,  2X,  UNTRUE  VEUCC1TY,  8X,  3HF0K, 

10790  •  9 X ,  13MTSUL  VtUOCItY,/ 

10800  837X,  14M  35  m  SPACING  ,/ 

10810  41 6 A ,  4H (  M),  *X,  5H(MPS),11X,  5H(MPS),12X,  5n(PPS),//} 

10820C  337* ,  14M100  FT  SPACING,/ 

10830C  4 1 6  X ,  4M(M),  *X ,  5H(PPS),11X,  5p(FPS),12X,  5M(TPS),//) 

10640 

10850  1]*1 

10860  12*1 


•  • 
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10870  NPBN*1 

10880  00  200  J«1«M 

10890  IFC0S(J,N),0T.DIC11,N))  IlUi*l 

10900  1FIUSIJ,N),GT,DUI2»nP))  I2«I2*1 

10910  200  PfllNT  110,  DS<J,N),VLCU,N)*VA<J,NP),VLtI2,NP) 

10920  PRINT  250 

10930  250  FORMAT  (//,  7X,65MN0TE  -  THE  'SUPPOSEDLY'  TRUE  VELOCITY  PROFILE  IS 

10990  a  A  PLAUSIBLE,  BUT, 

1 0950  A  / ,  1UX ,  'ERRUNEUUS,  INTERPRETATION  OF  THE  GIVEN  APPA 

10960  8HENT  VELOCITY  PROFILE, * ) 

10970 

10980  90  FORMAT  ( 1 H 1 ) 

10990  110  FORMAT  (15X,F5,1,  «X,F7,0,  9X,  F7.0,  9X,  F7,0) 

11000  310  FORMAT  l  SX,  F5,l,  8X,  F7.0,  9X,  2F7.0,  2x,  2F7,0) 

11010 

11020  PRINT  90 

11030  PRINT  300 

11090  300  FORMAT  C / ,20X,  7MT ABLE  5,/// 

1  1050  a  5 X ,  5HDEPTH,  2X,13HTRUE  VELOCITY,  2X ,25HAPPAHENT  VELOCITIES  (MPS) 
11060  a  ,/,6X,  9H (  M),  b«,  SH(HPS),  9X,  7M  0-7  M  ,  8X,  8H  0-35  M  ,/ 

1 1 070C  1  SX,  SMOEPTH,  2X,I3MTRUE  VELOCITY,  2X,25MAPPA»ENT  VELOCITIES  (FPS) 

11080C  2  « / ,6X ,  9M (FT ) ,  6X ,  SM(FPS),  9X,  7H0-20  FT,  8X,  8*0-100  FI,/ 

11090  a  27X,  4HC0MP,  3X,  4MMEAS,  SX,  4HC0MP ,  3X,  9HMEAS, // ) 

11100 

11110  Ial 

11120  00  900  J*1  ,M 

11130  IFCDSCJ,N),GT,DLCI»N))  I>1«1 

11190  400  PRINT  310,  0S(J,M,VL(I,N),VC(J,N),VACJ,N),VA(J,N«1),VA(J,N»1} 

11150 

11160  RETURN 

11170  EnO 

liieo  subroutine  taboumcm, imax) 

11190 

11200  COMMON/ INPUT/DS (SO, 20), 00(50, 20 },SSC50, 20 ),SG (50,20), 

11210  a  8FGS{50,201,OFGS(50,20),TR(50,20),V*C50,20),0,'(50,20) 

11220  a  ,8XC50),SY(50),SZ(50),CX(50J,GY{5U1,GZ(50J 

11230  COMMON/0UTPUT/VL(2O,20),0L(20,20),SVL(20,20),K(2O,2O),TT(61 

11290  a,vC(20,20) 

11250  COMMON  /CONSTA/  DELGS, VF 1RST , VLAST , DLL AST , TITLE 

11251  CHARACTER  *60  TITLE 
11260 

I 1270C  PRINT  130 

11280 

11290  PRINT  502 

11300  502  FORMAT  ( 15X ,47m*PPARENT  VELOCITY  AS  A  FUNCTION  OF  HOLE  SPACING///, 

11310  a3x ,26HDEPTH  TRUE  INTERFACE, ll*, 2 3H APPARENT  VELOCITIES  FOR,/, 

11320  al|X,t6HVEL0CITY  DEPTH, 16X, 16HH0LE  SPACINUS  UF,/, 

11330  ai2X,7HPRuFILE,13X,38H  7  *  19  M  21  *  28  m  35  h  ,//) 

11340C  312X , 7HPRUF 1LE , I 3X , 38h  20  FT  40  FT  60  FT  80  FT  100  FI, //I 

11350 

11360  la  1 

11370  JaO 

11380  200  JaJ«l 

11390  IF(J,GT,M)  GO  TO  600 

11400  IF (0LCI,2).LT,0S(J,2J)  GO  TO  400 
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flit  PALE  NO,  22 


1«10 

1420C 

1431/ 

l4«o 

1450 

1460C 

1070 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1671 
1680 
1690 
1700 
1710 
1720 
17J0C 
1700 
1750 
1760 
1770 
1780 
1790C 
1800C 
1810 
1620 
1630 
1840 


300  PRINT  111),  CS(J,2),VU(I,?),VA(J,2),VA(J,J),VA(J,4),VA(J,5)»7A(J,6) 
Hunch  110,  DS(J,2>,VU(I»2)#''AU,2),Va(J,3),vA(J,a),7A{J,5)»va<j,«>) 
IF(J,EU,h)  6U  TO  600 
be  70  20g 

400  PRINT  120,  Dl.  (  1 , 2  ) 

PUNCH  120,  CU ( I  , 2 ) 

X  4  I  A  1 

60  TO  300 

600  1F(I,IT,1HAX)  PRINT  140,  DU (I, 2), VU (1*1,2) 


100 

Fc«haT 

(6 (20A4 ) ) 

101 

FoRHAT 

(6 ( 1 3Ae, A2 , / ) ) 

110 

FoRhat 

(2x,P6,l,3X,F7,0,12X,5F«,o) 

120 

FORHAT 

(21X,Fb, 1 ) 

130 

FCRHXT 

(  1 H 1  ) 

140 

FORHAT 

(21X,F6,l,/,llX,F7t0) 

return 

End 

SUBROUTINE  OPUNCH  (h,N, IHAX,01ST ,  A  2 1 H  j 

Cohhon/ InPUT/OS (50, 20 ), DC  150 ,2fl),SS (5U, 20  ),SG (50, 20), 

»  SF6S(50,20),DFCS(50,20),TR(50,20),VA(bO,20),Dn(50,20) 

fc  ,SX(S0).S7(50), 52(50), UX(50), 67(50), 62(50) 

CoHHON/OuTPUT/VUl20,2o),DU<20,20),SVU(20,2o),*(20,20),TT(6< 

X, VC (20 ,20  ) 

COHHON  /CONST  A/  DEUCS , VF IRS T , VL AST , UUU AS T , T 1 TLt 

CHARACTER  *«G  title 

ICPl«2 

ICP2"0 

PUNCH  100, TITLE 
100  EcNHAT(AoO) 

punch  no,  iupi,n,iop2,»,oist,a2ih,7First,vlast,ullast,iha* 

Punch  110,  I0Pl,N,I0P2,*',DI3T 
110  E CRH* t  (4I5,4F10,j,F5,O,I5,P5,O) 

OC  200  J»1,H 

200  Punch  12o,  S2(J),S*(J),S7(J),62(J),6x(J),U7(J),vC(J,n) 

120  FCHHAT  (bF10,2, 1  OX.F  10,0) 

Punch  lio,  (VU(J,N),I«1,IPAX) 

Punch  13o,  (Ol ( I ,n) , i»i , jhax.i ) 

130  FCRH*  T  (  (8F  1 1) ,  1 ) ) 

return 

End 
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Errata  Sheet 


No.  1 


ANALYTICAL  AND  DATA  PROCESSING  TECHNIQUES  FOR 
INTERPRETATION  OF  GEOPHYSICAL  SURVEY  DATA  WITH 
SPECIAL  APPLICATION  TO  CAVITY  DETECTION 

Miscellaneous  Paper  GL-82-16 
September  1982 


1.  Page  14,  paragraph  7,  line  7,  and  Equation  1  (line  8),  should  be  changed 
to  read: 

calculate  an  apparent  resistivity  pA 

PA  ■ 

2.  Page  14,  paragraph  7,  line  11,  should  be  changed  to  read: 

Kg  =  2/ta  ;  and  for  the  Schlumberger  array  Kg  =  ns  j(L/s)2  -  (1/4)J  , 

3.  Page  14,  paragraph  7,  line  17,  should  be  changed  to  read: 

7irn(n2  -  1)  ,  where  r  =  CjC2  =  PjP2  and  CjPj  =  C2P2  =  nr  . 

4.  Page  68,  paragraph  66,  line  13,  should  be  changed  to  read: 

and  Equation  4  can  be  written 

5.  Page  72,  paragraph  70,  line  5  on  this  page,  should  be  changed  to  read: 

where  f®(x)  denotes  the  discrete  profile  data  set.  That  is,  two 

6.  Page  93,  paragraph  98,  line  16  on  this  page,  should  be  changed  to  read: 

gradient  model  in  Figure  49a,  could  now  be  determined  by  using  TALGRAD 


